delphi 께서 말씀하시기를...

> OnHint를 써서 상태바에 도움말을 넣는데 문제가 있는데요...

> 부모폼과 자식폼에서 모두 FormCreate시 Application.OnHint를 써서 처음 부모폼이 뜰때는 힌트가 계속자식폼에 출력되구요.. 두폼모두 FormShow시 Application.OnHint를 썼을때는 처음에 부모폼이 뜰때와 자식폼이 떴을때는

> 힌트가 출력이 잘되는데 자식폼을 닫았을때 부모폼에서 힌트가 계속 자식폼으로

> 출력이 됩니다... 문제의 원인이 무엇이고 해결책은 어떻게 하면 될까요...

> 그리고 폼마다 Application.OnHint를 써야되나요?..한번써서 여러폼에 적용시킬수 없나요..? 그럼 수고하시구요..답변부탁드립니다...



delphi님 안녕하세요?

일반적으로 MDI폼에서는 아래처럼 프로그래밍 합니다.

참고하시고 즐거운 프로그래밍 되시길~



public

{ Public declarations }

procedure ShowHint(Sender : TObject);//사용자 힌트 프로시져

end;



//사용자 힌트프로시저 작성

procedure TForm1.ShowHint(Sender : TObject);

begin

StatusBar1.Panels[0].Text := Application.Hint;

end;



//OnCreate 이벤트 핸들러에

//아래의 속성들을 delphi님 임의대로 정하세요..

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.HintPause := 200;

Application.HintColor := clYellow;

Application.OnHint := ShowHint;

end;