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

Как создать кнопку в панели задач для неглавного окна приложения?   Найти похожие ветки 

← →
Goblinus ©   (2003-05-24 18:00) [0]

Привет All!

Сабж. Через CreateParams не катит:

...
protected
procedure CreateParams( var Params: TCreateParams); override;
end;
...

...
procedure TfrSettings.CreateParams( var Params: TCreateParams);
begin
with Params do
ExStyle := ExStyle and WS_EX_APPWINDOW;
inherited CreateParams(Params);
end;
...

С уважением,
Goblinus.

---

← →
Юрий Федоров ©   (2003-05-24 18:22) [1]

Помести его в DLL и не передавай туда Application.Handle :-))

---

← →
Goblinus ©   (2003-05-24 18:37) [2]

Сделал уже по-другому, все работает...

Пишем в главном фвйле проекта ( *.dpr):

...
Application.CreateForm(TfrLegend, frLegend);
SetWindowLong(frSettings.Handle, GWL_EXSTYLE, GetWindowLong(frSettings.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW and not WS_EX_TOOLWINDOW);
Application.Run;
...


---

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

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



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