![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Форма, которая всегда сверху . [D6, WinME]
Nemo © (2003-02-21 02:06:00)Как сделать, чтобы форма была, так сказать, "всегда сверху"? Заранее благодарен.
Nemo (2003-02-22 02:03:00) [1]Сам же отвечаю на свой вопрос, но я тут вспомнил, что это можно указать в свойствах формы.
ers (2003-02-21 10:22:00) [2]Удалено модератором
Примечание: Задай свой вопрос в отдельной ветке
dimich1978 (2003-02-21 09:25:00) [3]Чтобы форма была всегда поверх всех окон:
В обьявлении класса формы переопределяешь виртуальный метод TWinControl CreateParams >>
procedure CreateParams(var Params:TCreateParams);override;
Его реализация:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:=Params.ExStyle or WS_EX_TOPMOST;
end;