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

Как сделать независимую форму и невидимую в TaskBar   Найти похожие ветки 

← →
Nick_Omsk   (2003-10-29 19:50) [0]

Есть главная форма, в привате есть еще одна:

type TAProc = class (TForm)
private
UserForm : TUserForm;
...

1. Необходимо сделать так, чтоб при свёртывании главной формы другая (UserForm) не сворачивалась.
2. Чтоб при другая (UserForm) не светилась в TaskBar.

Решение п.1 нашёл в следующем:

procedure TAProc.FormCreate...
begin
...
UserForm:=TUserForm.CreateParented(GetDeskTopWindow);
...
end

вроде работает, но доверия не внушает
Подскажите, как мне быть?

---

← →
Игорь Шевченко ©   (2003-10-29 20:35) [1]

Да вроде все верно. Для того, чтоб форма не попадала в Taskbar, нужно в ее методе CreateParams установить Style WS_POPUP и Exstyle WS_EX_TOOLWINDOW

---

← →
Nick_Omsk   (2003-10-29 21:54) [2]

На каком этапе жизни формы?

---

← →
Nick_Omsk   (2003-10-29 21:56) [3]

Дело в том что форма имеет изначально BorderStyle:=bsNone на этапе проектирования

---

← →
Игорь Шевченко ©   (2003-10-30 10:32) [4]

type
Tform1 = class(TForm)
...
protected
procedure CreateParams(var Params : TCreateParams); override;
end;

....
procedure Tform1.CreateParams (var Params : TCreateParams);
begin
inherited;
with Params do begin
Style := Style or WS_POPUP;
ExStyle := ExStyle or WS_EX_TOOLWINDOW;
end;
end;

---

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

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



Память: 0.45 MB
Время: 0.012 c