Programm in den Vordergrund bringen

[bonanza]

HI,

ich möchte mein Programm, wenn ein bestimmter fall eintritt, in den Vordergrund bringen. Wie kann ich das machen ?

ich hab schon danach gegoogelt habe nur "alte" methoden gefunden, die bei mir nicht funktionieren, da ich XP habe.

Vielen dank schonmal im voraus.

[Obi-Wan]

Ich würds einfach so machen:

Delphi-Quellcode:

procedure MeinEreignis;
begin
 FormStyle := fsStayOnTop; //Form in den "StayOnTop" Modus bringen
 FormStyle := fsNormal; //Form wieder "normalisieren"
end;

Gibt vielleicht noch ne elegantere Methode die mich auch interressieren würde ^^

[bonanza]

und wie kann ich es verbergen, also, dass das Form nicht mehr zu sehen ist (habe es schon in Tray gebracht)?

[TheAn00bis]

Auch TApplication kennt

BringToFront; ,

wenn ich mich denn nicht irre.

Edit:

Zitat von bonanza:

und wie kann ich es verbergen, also, dass das Form nicht mehr zu sehen ist (habe es schon in Tray gebracht)?

form1.visible := false ?

[Luckie]

Zitat von Obi-Wan:

Ich würds einfach so machen:

Und ich nicht, denn:

Zitat:

Note: It is not advisable to change FormStyle at runtime.

Grund ist der, dass das Formular neu erzeugt wird und somit ein neues Handle bekommt, was ungewollte Nebeneffekte zur Folge haben kann. Nimm besser SetWindowPos mit dem Flag HWND_TOPMOST.

Verbergen geht mit der Eigenschaft Hide von TForm.

[bonanza]

könntest du mir dafür ein beispiel geben ?

ich weiß nämlich nicht, wie ich das mit den "uFlags" machen soll:

SetWindowPos(HWND,HWND_TOPMOST,0,0,0,0,UINT uFlags); ?

[Luckie]

Sthet doch alles im PSDK: http://msdn.microsoft.com/library/de...twindowpos.asp

[NicoDE]

Ansonsten kannst du dir das Vordergrundfenster holen (GetForegroundWindow), die Eingabequeues verbinden (GetWindowThreadProcessId, AttachThreadInput) und mittels (Windows.)SetFocus dein Programm aktivieren.

Delphi-Quellcode:

function BringToFrontEx(AWnd: HWND): Boolean;
var
  FgWindow: HWND;
  ThreadId: DWORD;
  Attached: BOOL;
begin
  FgWindow := GetForegroundWindow();
  ThreadId := GetWindowThreadProcessId(FgWindow, nil);
  Attached := AttachThreadInput(GetCurrentThreadId(), ThreadId, True);
  if Attached or (ThreadId = GetCurrentThreadId()) then
    Result := SetFocus(AWnd) <> 0
  else
    Result := SetForegroundWindow(AWnd);
  if Attached then
    AttachThreadInput(GetCurrentThreadId(), ThreadId, False);
end;

Wenn dein Programm sich ohne Grund den Fokus holt, wird der Benutzer es schnell hassen lernen...

[Obi-Wan]

Achso ok, danke Luckie für die Aufklärung
Habs halt mit bringToFront versucht aber das funktioniert leider nicht

[bonanza]

Ich hab das Porgramm jetzt versteckt mit:

Delphi-Quellcode:

ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);

aber wie kann ich es wieder anzeigen ?