![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Kak sdelat formu always on a top? [D7, WinXP]
Shmit © (2005-05-27 20:29:00)Takoi vot vopros est dve formi, ho4u sdelat form2 always on a top kak ne znaju.
Delal:
SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0,SWP_NOMOVE or SWP_NOSIZE);
no eto rabotaet tolko dlja pervoi formi a so vtoroi ne kak daze posle togo 4to form1.handle pomenal na form2.handle
Хинт (2005-05-28 22:05:00) [1]private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TInfoForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW
end;
Shmit (2005-05-28 18:44:00) [2]Не работает, у себя в дельфи проверь если не вериш.
dmitry_t (2005-05-28 16:00:00) [3]Повесь на обработчик события формы OnCreate:
Self.FormStyle:=fsStayOnTop
-=S.S=- (2005-05-28 15:51:00) [4]Когда открываеться вторая форма то нужно выполнить такой код
ShowWindow(Form1.Handle,SW_HIDE);
Form2.FormStyle := fsStayOnTop;
При закрытии
ShowWindow(Form1.Handle,SW_SHOW);
Shmit (2005-05-28 01:03:00) [5]vobs4em sprjatana ona kak i dolzna :)
Shmit (2005-05-28 01:02:00) [6]Da zadumka takaja 4to kogda vtoraja forma otkrita pervoja sprjatana .
Marser (2005-05-28 00:04:00) [7]Должна быть спрятана или спрятана?
Shmit (2005-05-28 00:00:00) [8]delo v tom 4to pervoja u mena sprjatana v tot moment kogda vtoraja rabotaet
Marser (2005-05-27 23:55:00) [9]Сперва установи первую:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,SWP_NOMOVE or SWP_NOSIZE);
А затем устанавливай HWND_TOPMOST вторую.
HWND_TOPMOST Places the window above all non-topmost windows. The window maintains its topmost position even when it is deactivated.
Shmit (2005-05-27 23:45:00) [10]Ktonebud?