Application.Hint

← →
Adios © (2007-08-17 21:01) [0]

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
procedure DisplayHint(Sender: TObject);
end;
implementation
{$R *.DFM}
procedure TForm1.DisplayHint(Sender: TObject);
begin
showmessage(Application.Hint);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.hint:="подсказка";
Application.OnHint := DisplayHint;
end;

у меня возникла пара вопросов:
почему простой хинт появляется через пару секунд, а сообщение выскакивает моментально?
почему выскакивает подряд 2 сообщения сперва с хинтом, а потом пустое и как убрать пустое сообщение?

← →
WASM (2007-08-17 22:35) [1]

Могу посоветовать следующий вариант

Кидаете ApplicationEvents на форму

procedure TForm1.FormCreate(Sender: TObject); begin Form1.Hint:="подсказка"; Application.HintPause:= 100; end; procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo); begin DisplayHint; end;

Application.Hint Найти похожие ветки