Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

AW: Nach BringToFront wieder über Tasten navigieren?

  Alt 13. Apr 2012, 13:29
Ganz so klar ist mir das nicht geworden, aber ich würde das Window-Handle
dieser 2. Anwendung zwischenspeichern und BringToFront()
nur auslösen, wenn diese 2. Anwendung den Focus hat:
Delphi-Quellcode:
Tfrm_main = class(TForm)
private
  FExtWinHandle : THandle;
....

procedure Tfrm_main.Timer1Timer(Sender: TObject);
begin
  if GetForeGroundWindow <> Handle then
  begin
    if FExtWinHandle = 0 then
    begin
      FExtWinHandle := GetForeGroundWindow;
    end;

    if FExtWinHandle = GetForeGroundWindow then
      BringToFront;
  end;
end;

procedure Tfrm_main.FormOnActivate(Sender: TObject);
begin
  FExtWinHandle := 0;
end;
Damit kann der Benutzer zwischendurch auch eine andere Anwendung (z.B. Explorer)
benützen ohne das deine Anwendung ständig hochpoppt.
Andreas
  Mit Zitat antworten Zitat