Проблема при работе с формами

← →
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)

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

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

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

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

Application.OnMinimize:=MyOnMinimize;

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

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;

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