Wechseln zwischen Fenstern derselben Anwendung

[Towmuz]

Moin,

wenn du mit folgendem Überschreib in allen Kinderfenstern, die es betreffen soll, herumhantierst, dann bekommst du in der Taskleiste ein per ALT+TAB wechselbares Fenster.

Delphi-Quellcode:

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

Delphi-Quellcode:

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