Fenster im Vordergrund

[toms]

Geht bei mir auch nicht... Siehe Beispielprojekt.

Relevanter Test-Code:

Delphi-Quellcode:

function Notepad1: HWND;
begin
  Result := FindWindow('Notepad', 'test1.txt - Notepad');
end;

function Notepad2: HWND;
begin
  Result := FindWindow('Notepad', 'test2.txt - Notepad');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hNotepad: HWND;
begin
  Inc(i);

  if Odd(i) then
  begin
    hNotepad := Notepad1;
    Caption := 'test1.txt - Notepad sollte im Vordergrund sein.'
  end
  else
  begin
    hNotepad := Notepad2;
    Caption := 'test2.txt - Notepad sollte im Vordergrund sein.'
  end;

  if hNotepad <> 0 then
  begin
    ForceForegroundWindow(hNotepad);
  end;
end;

Nachtrag: So werden die Notepads in den Vordergrund geholt:

Delphi-Quellcode:

  if hNotepad <> 0 then
  begin
    ShowWindow(hNotepad,SW_RESTORE);
    ForceForegroundWindow(hNotepad);
  end;