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

Вниз

Есть программа с двумя формами, Form1 и Form2, в Form1 на   Найти похожие ветки 

 
waterfoll ©   (2003-01-29 12:47) [0]

Button1Click, я делаю видемой Form2. (Form2.Show), это все понятно, но мне надо, что бы Form2 отображалась на панеле задачь отдельно от Form1. Как можно это реализовать?


 
waterfoll ©   (2003-01-31 16:32) [1]

Ну вы где Мастера? Ауу, неужели все так плохо и не кто незнает :(


 
uw ©   (2003-01-31 17:44) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ParentWindow := GetDeskTopWindow;
Form2.Show;
end;


 
uw ©   (2003-01-31 18:05) [3]

Написал, проверил... Что-то плохо себя эта форма ведет.


 
Slava ©   (2003-01-31 18:37) [4]

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

...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;


 
waterfoll ©   (2003-02-02 03:00) [5]

Уже нашел, вот так она хорошо себя ведет:
procedure ShowTaskBarButton(wnd : HWND);
begin
ShowWindow(wnd, SW_HIDE);
SetWindowLong(wnd, GWL_HWNDPARENT, 0);
ShowWindow(wnd, SW_SHOW);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-28728
Alik1313
2003-01-31 15:12
2003.02.10
Кол-во экземпляров формы


1-28795
romikadze
2003-02-01 13:59
2003.02.10
Масштабирование рисунка в TImage


1-28729
Oleon
2003-01-31 13:04
2003.02.10
Как зная только имя класс в Run-Time создать объект этого класса?


3-28600
FAS
2003-01-18 01:12
2003.02.10
откуда и как инсталировать BDE


3-28676
Соловьев
2003-01-24 14:40
2003.02.10
Почему не работает UPPER?