Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
ВнизКак сделать чтобы форма была поверх окон,но не модальна? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c