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

Проблема при работе с формами   Найти похожие ветки 

← →
ArchValentin ©   (2005-02-23 17:51) [0]

Люди, помогите. Как сделать так чтобы когда сворачиваешь главную форму, побочная оставалась на виду и была полностью работоспособной?
Вызываю по Form2.show;

---

← →
Юрий Зотов ©   (2005-02-23 17:55) [1]

Зачем?

---

← →
ArchValentin ©   (2005-02-23 18:07) [2]

> Юрий Зотов ©   (23.02.05 17:55) [1]

пишу плавающий мониторчик к своей проге, а он должен быть всегда наверху, независимо от того, свёрнута прога или нет

---

← →
olookin ©   (2005-02-23 18:08) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
 subform.show;
 mainform.Hide;
end

---

← →
ArchValentin ©   (2005-02-23 18:14) [4]

> olookin ©   (23.02.05 18:08) [3]

...может я неправильно выразился, юзер нажал на свернуть, MainForm свернулась, а subform осталась на виду

---

← →
olookin ©   (2005-02-23 18:17) [5]

[4] ArchValentin ©   (23.02.05 18:14)

Ну засуньте ваш код в обработчик сообщений. И ловите сворачивание главного окна, а потом делайте (если поймали) то, что требуется.

---

← →
ArchValentin ©   (2005-02-25 03:05) [6]

> olookin ©   (23.02.05 18:17) [5]

Ловлю, ловлю, ловлю...поймал...:))) Поймать то поймал, обрабатываю
<CODE

>  subform.show;
>  mainform.Hide;
>
<
но прикол то в том что форма всё равно сворачивается, а с ней и побочная :(((
пытался сделать
MainForm.restore;
SubForm.show;
MainForm.hide;
работает, но ОЧЕНЬ некрасиво.

---

← →
olookin ©   (2005-02-25 08:38) [7]

Application.OnMinimize:=MyOnMinimize;

procedure TMyForm.MyOnMinimize(Sender: TObject);
begin
 SecondWindow.Show;
 ShowWindow(SecondWindow.Handle,SW_SHOW);
end;

---

← →
easy ©   (2005-02-25 09:17) [8]

type
 TForm2 = class(TForm)
 private
   { Private declarations }
   procedure CreateParams(var Params: TCreateParams); override;
 public
   { Public declarations }
 end;

.....

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.WndParent:=0;
 Params.ExStyle:=Params.ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
end;

---

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

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



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