Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

Kak sdelat formu always on a top?   Найти похожие ветки 

 
Shmit   (2005-05-27 20:29) [0]

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


 
Shmit   (2005-05-27 23:45) [1]

Ktonebud?


 
Marser ©   (2005-05-27 23:55) [2]

Сперва установи первую:
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-28 00:00) [3]

delo v tom 4to pervoja u mena sprjatana v tot moment kogda vtoraja rabotaet


 
Marser ©   (2005-05-28 00:04) [4]

Должна быть спрятана или спрятана?


 
Shmit   (2005-05-28 01:02) [5]

Da zadumka takaja 4to kogda vtoraja forma otkrita pervoja sprjatana .


 
Shmit   (2005-05-28 01:03) [6]

vobs4em sprjatana ona kak i dolzna :)


 
-=S.S=-   (2005-05-28 15:51) [7]

Когда открываеться вторая форма то нужно выполнить такой код

ShowWindow(Form1.Handle,SW_HIDE);
Form2.FormStyle := fsStayOnTop;


При закрытии

ShowWindow(Form1.Handle,SW_SHOW);


 
dmitry_t   (2005-05-28 16:00) [8]

Повесь на обработчик события формы OnCreate:
Self.FormStyle:=fsStayOnTop


 
Shmit   (2005-05-28 18:44) [9]

Не работает, у себя в дельфи проверь если не вериш.


 
Хинт ©   (2005-05-28 22:05) [10]

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;



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

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

Наверх




Память: 0.48 MB
Время: 0.041 c
3-1115359406
Ньюб
2005-05-06 10:03
2005.06.14
как отловить обрыв связи на IBX_Version = 6.0;


3-1115366219
DeStranger
2005-05-06 11:56
2005.06.14
Перенесение sequence из одной схемы в другую


1-1116967301
grol
2005-05-25 00:41
2005.06.14
Как правильно урезать переменную Real?


11-1100426688
school
2004-11-14 13:04
2005.06.14
KOL и графика


1-1116934243
ANB
2005-05-24 15:30
2005.06.14
Что такое "Объекты GDI" в диспетчере задач ?