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

Вниз

Как сделать чтобы форма была поверх окон,но не модальна?   Найти похожие ветки 

 
sdasase   (2003-07-20 17:51) [0]

Есть проект.Хочу сделать так чтобы высвечивалась полупрозрачная форма(это я знаю как сделать) поверх вмех остальных.Если сделать ее модальной,то я несмогу работать с другими формами проекта.А как ее высветить чтобы она была поверх всех окон,но не мешала мне работать с программой?


 
Lexer ©   (2003-07-20 18:00) [1]

FormStyle := fsStayOnTop


 
Spawn ©   (2003-07-20 18:03) [2]

SetWindowPos


 
Rouse_ ©   (2003-07-20 18:17) [3]

Делаем поверх окон
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width, Height, SWP_NOREDRAW);
end;


Нормальное состояние
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width, Height, SWP_NOREDRAW);
end;


Желаю успехов



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
11-10160
DNT
2002-11-30 17:44
2003.08.04
Без окна


14-10460
Knight
2003-07-17 21:16
2003.08.04
Телефонный справочник - законно ли это?


6-10330
MikeFW
2003-05-29 12:17
2003.08.04
отправка сообщений в локальной сети


14-10349
Aga
2003-07-16 18:57
2003.08.04
Перенос программ


9-10076
Кен
2003-02-06 01:56
2003.08.04
GLScene Коллизии. Как их определять для Actor и FreeForm? Когда о