Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#2

Re: ALT-TAB bei nur einer offenen Applikation

  Alt 16. Okt 2009, 13:08
Vielleicht hilft es, dein MainForm auf den Desktop zu "kleben"? Dann könnte kein Fenster mehr dahinter sein, sondern alle davor.
Delphi-Quellcode:
type
  TfrmMain = class(TForm)
    ...
Integer);
    ...
  private
    ...
  public
    ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin //Form klebt am Desktop, d. h. es kann kein Fenster dahinter verschwinden :-)
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then begin
    Params.WndParent := GetDesktopWindow;
    Params.Style := WS_CHILD;
  end;
end;
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat