Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c