Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Мастеря, помогите еще разок =) [D6, WinME]

Коля © (2002-05-16 14:44:00)
как сделать чтобы окно стояло поверх всех остальных?

Alibaba (2002-05-16 17:55:00) [1]
SetForegroundWindow(Application.Handle);

Johnmen (2002-05-16 17:51:00) [2]
>Song © (16.05.02 17:19)
>NailS © (16.05.02 17:23)

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

NailS (2002-05-16 17:23:00) [3]
Johnmen
Работает же...

Коля (2002-05-16 17:22:00) [4]
да вроде оба работают.. спасибо большое

Song (2002-05-16 17:19:00) [5]
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;

Johnmen (2002-05-16 16:56:00) [6]
>NailS © : Не-а, не выйдет...

NailS (2002-05-16 16:48:00) [7]
SetWindowPos(Self.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE+SWP_NOMOVE+SWP_SHOWWINDOW);

Вроде так

Коля (2002-05-16 16:18:00) [8]
я имел ввиду мои программу и окна виндовс, а не child forms

Коля (2002-05-16 16:17:00) [9]
а можно поточнее?

DenNNis (2002-05-16 15:33:00) [10]
а showmodal не подходит?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »