(Dynamisch erzeugte) Form immer im Vordergrund dargestellen

[Viktorii]

Moin.

Wie kann ich erreichen, das eine (dynamisch erzeugte) Form immer im Vordergrund dargestellt wird?

Mit diesem Code wird die Form nicht mehr im Vordergrund dargestellt wenn ich den Fokus auf einen andere Applikation setze:

Delphi-Quellcode:

    
FPasswordForm := TPasswordForm.Create(self);
FPasswordForm.FormStyle := fsStayOnTop;
ret := FPasswordForm.ShowModal;

Wer weiß Rat?

Vielen Dank

[GPRSNerd]

Hi,

hier ein bisschen Code um diese StayOnTop-Feature ein und auszuschalten.

Delphi-Quellcode:

procedure TForm_Main.spbStayOnTopClick(Sender: TObject);
begin
  if spbStayOnTop.Down then
  begin
    SetWindowPos(Handle,
                 HWND_TOPMOST, 
                 Left, Top, Width, Height, 
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  end
  else
  begin
    SetWindowPos(Handle, 
                 HWND_NOTOPMOST, 
                 Left, Top, Width, Height, 
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  end;
end;

[DeddyH]

Oder etwas kürzer:

Delphi-Quellcode:

procedure TForm_Main.spbStayOnTopClick(Sender: TObject);
const IsDown: array[Boolean] of Cardinal = (HWND_NOTOPMOST, HWND_TOPMOST);
begin
  SetWindowPos(Handle,
               IsDown[spbStayOnTop.Down],
               Left, Top, Width, Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

[Viktorii]

Das funktioniert leider nicht

So hab ich es versucht:

Delphi-Quellcode:

    FPasswordForm := TPasswordForm.Create(self);
    SetWindowPos(FPasswordForm.Handle,HWND_TOPMOST,Left, Top, Width, Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ret := FPasswordForm.ShowModal;

Was (interessanterweise) teilweise funktioniert, ist der code den ich unter #1 gepostet habe und wenn ich in der Form folgendes mache:

Delphi-Quellcode:

procedure TPasswordForm.FormActivate(Sender: TObject);
begin
  Position := poScreenCenter;
end;

Wenn ich allerdings folgendes hinzufüge bzw. den Fokus zu Laufzeit mit der Maus auf das Edit setzte, bleibt das Fenster nicht mehr im Vordergrund

Delphi-Quellcode:

procedure TPasswordForm.FormShow(Sender: TObject);
begin
  EditPassword.SetFocus;
end;

[DeddyH]

Pack doch mal den SetWindowPos-Aufruf mit ins FormActive des Passwortforms, das sollte helfen.

[GPRSNerd]

Zitat von DeddyH:

Oder etwas kürzer:

Delphi-Quellcode:

procedure TForm_Main.spbStayOnTopClick(Sender: TObject);
const IsDown: array[Boolean] of Cardinal = (HWND_NOTOPMOST, HWND_TOPMOST);
begin
  SetWindowPos(Handle,
               IsDown[spbStayOnTop.Down],
               Left, Top, Width, Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Coole Vereinfachung!

[Viktorii]

Hilft leider auch nicht.

Habe das in FormShow, FormActivate und FormCreate versucht.

[GPRSNerd]

Zitat von Viktorii:

Das funktioniert leider nicht

So hab ich es versucht:

Delphi-Quellcode:

    FPasswordForm := TPasswordForm.Create(self);
    SetWindowPos(FPasswordForm.Handle,HWND_TOPMOST,Left, Top, Width, Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ret := FPasswordForm.ShowModal;

Du hast wahrscheinlich nicht bemerkt, dass die Properties Left, Top, Width, Height natürlich auch von FPasswordForm sein müssen! So, wie du es aufgerufen hast, übergibst du die Properties von deiner Parentform.

[DeddyH]

Komisch, ich habe das eben ausprobiert, bei mir geht das

[edit] @GPRSNerd: Solange SWP_NOMOVE und SWP_NOSIZE gesetzt sind, ist es vollkommen wurscht, wie die Koordinaten belegt sind, da sie schlicht ignoriert werden. [/edit]

[Viktorii]

@DeddyH: Ich werde mal ein Minimal Beispiel machen und das posten. Wird aber wahrscheinlich erst morgen früh was werden