Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.028 c
1-1109177226
Aleksandr
2005-02-23 19:47
2005.03.13
Как прочитать первую и вторую строку текстового файла(*txt)?


1-1109744147
pkm
2005-03-02 09:15
2005.03.13
В Excel е залить ячейку нужным цветом.


3-1107988279
UVV
2005-02-10 01:31
2005.03.13
Oracle и тип date


3-1107869990
denis24
2005-02-08 16:39
2005.03.13
select ..... from .... where name in (........


1-1109661324
BillyJeans
2005-03-01 10:15
2005.03.13
Добавление пункта в контекстное меню системы