[Delphi] pilne! >> nowe okno - smiesznie proste :-/

wstyd sie przyznac, ale zawsze potrzebne mi bylo tylko tworzenie nowych okien w programie, ktore z premedytacja nie mialy byc widoczne na pasku zadan. Teraz potrzebuje stworzyc nowe okno tak zeby bylo widoczne na tymze pasku i problem w tym ze nie wiem jak to zrobic [niewinnosc].

Tak sobie kombinowalem np. zmienilem parent okna na self ale to nic nie daje, ba! - sciagnalem nawet kurs delphi :D i tez nie bylo :(.

ok, zeby bylo klarowniej, to dodam ze nowa forma musi byc tworzona dynamicznie i wielokrotnie. Czyli jak robilem wczesniej:

Costam := TCostam.Create(nazwa_app);
Costam.Show;

to dokladnie chodzi mi o taki efekt, tyle zeby sie pokazywalo na tym nieszczesnym pasku zadan ...

aha, ShowModal nic nie daje :(

W module z okienkiem TCostam daj tak:

[code]
private
procedure CreateParams(var Params : TCreateParams); override;
.....
procedure TCostam.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent:=GetDesktopWindow;
end;
[/code]

Żeby forma posiadała własne menu systemowe, to trzeba chyba jeszcze zrobić tak:

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

implementation

{...}

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

Przynajmniej tak jest w porządku :)

dzieki ludzie, dziala dobrze :).