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

Вниз

Как сделать форму AlwaysOnTop?   Найти похожие ветки 

← →
nester   (2003-03-05 18:25) [0]

Как сделать форму AlwaysOnTop?

---

← →
Mike_Goblin ©   (2003-03-05 18:36) [1]

FormStyle:=fsAlwaysOnTop

---

← →
Rouse_ ©   (2003-03-05 18:45) [2]

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.03.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c