Application.Hint [D7, XP]
Adios © (2007-08-17 21:01:00)
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
