Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.18;
Скачать: CL | DM;

Вниз

Создание H   Найти похожие ветки 

 
sammy   (2002-04-08 09:23) [0]

Я создал всплывающую подсказку:

..............
type
TMyHint = class (THintWindow)
public
constructor Create(AOwner: TComponent); override;
end;
...........

constructor TMyHint.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do // Именно так, а не пpосто Font!
begin
Name := "Times New Roman Cyr";
Style := [fsBold, fsItalic];
Size := 40;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin // обpаботчик
HintWindowClass := TMyHint; // Устанавливаем глобальную пеpеменную
Application.ShowHint := false; // Application.FHintWindow.Free
Application.ShowHint := true; // Application.FHintWindow.Create
end;

end.

все работает!
Подскажите как изменить ее форму
Я где-то слышал, что нужно воспользоваться
CreateParams();
Где его пысать и с какими параметрами?
Помогите пожалуста!


 
Виктор Щербаков ©   (2002-04-08 09:37) [1]

Посмотри здесь
http://delphi.mastak.ru/cgi-bin/download.pl?get=1017641251&n=0
исходник маленький, около 300 строк. Я думаю разберешься что к чему.



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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
3-57616
DDM
2002-03-26 22:11
2002.04.18
защита данных PARADOX


3-57642
Aidan
2002-03-28 16:15
2002.04.18
VCL для Crystal Reports 6.0 - где взять?


1-57693
esprit_bel
2002-04-01 04:19
2002.04.18
Про окно


7-57896
Voland
2002-01-24 15:39
2002.04.18
Запись на HDD


3-57661
KVT2000
2002-03-29 08:53
2002.04.18
DBGrid, последовательность событий