Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Создание 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 строк. Я думаю разберешься что к чему.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.041 c
14-57865          SV                    2002-03-07 09:21  2002.04.18  
Инфо


14-57884          Mandfm                2002-03-13 00:41  2002.04.18  
Очень прошу, помогите!


3-57607           Anics                 2002-03-27 07:31  2002.04.18  
Запрет удаления записи в DBGrid нажатием Ctrl-Del


1-57764           lipskiy               2002-04-03 21:34  2002.04.18  
Когда правильно делать FreeAndNil, а когда просто Free?


4-57919           Dimaond Cat           2002-02-15 15:50  2002.04.18  
Перерисовка компонентов в риалтайм