Скачать: CL | DM;

Мастеря, помогите еще разок =)   Найти похожие ветки 

← →
Коля   (2002-05-16 14:44) [0]

как сделать чтобы окно стояло поверх всех остальных?

---

← →
DenNNis   (2002-05-16 15:33) [1]

а showmodal не подходит?

---

← →
Коля   (2002-05-16 16:17) [2]

а можно поточнее?

---

← →
Коля   (2002-05-16 16:18) [3]

я имел ввиду мои программу и окна виндовс, а не child forms

---

← →
NailS ©   (2002-05-16 16:48) [4]

SetWindowPos(Self.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE+SWP_NOMOVE+SWP_SHOWWINDOW);

Вроде так

---

← →
Johnmen ©   (2002-05-16 16:56) [5]

>NailS © : Не-а, не выйдет...

---

← →
Song ©   (2002-05-16 17:19) [6]

procedure TForm21.FormShow(Sender: TObject);
Var Rect:TRect;
begin
GetWindowRect(Handle,Rect);
SetWindowPos(Handle,HWND_TOPMOST,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top, SWP_SHOWWINDOW);
end;

---

← →
Коля   (2002-05-16 17:22) [7]

да вроде оба работают.. спасибо большое

---

← →
NailS ©   (2002-05-16 17:23) [8]

Johnmen
Работает же...

---

← →
Johnmen ©   (2002-05-16 17:51) [9]

>Song © (16.05.02 17:19)
>NailS © (16.05.02 17:23)

До тех пор, пока не появится другое аналогичное окно :)

---

← →
Alibaba ©   (2002-05-16 17:55) [10]

SetForegroundWindow(Application.Handle);

---

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

Скачать: CL | DM;



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