Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.09;
Скачать: 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 вся ветка

Текущий архив: 2007.09.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
1-1183193886
JanMihail
2007-06-30 12:58
2007.09.09
Как узнать, какой курсор в данный момент


15-1187019740
@!!ex
2007-08-13 19:42
2007.09.09
Плакал...


2-1187373659
FireSonic
2007-08-17 22:00
2007.09.09
Каким образом возможно это сделать?


3-1178876828
Sairex
2007-05-11 13:47
2007.09.09
Локальна сеть и InterBase


15-1186998966
sapsi
2007-08-13 13:56
2007.09.09
Установка Indy компонент