Fenster immer im Vordergrund?

[CalganX]

Ja, wie geht das?

Chris

[Luckie]

Code:

SetWindowPos(Handle, HWND_TOPMOST, 0 , 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

[d3g]

Hi Chris,

Code:

SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, 0);

MfG,
d3g

[edit]Mal wieder was gleichzeitiges. ;-)[/edit]

[Luckie]

Zitat:

Zitat von d3g

[edit]Mal wieder was gleichzeitiges. ;-)[/edit]

Falsch, ich war schneller. :wink:

[City Light]

Hi Leut'z


bei mir funktioniert das nicht!!!

ich habe zwei Formen ,Form2 soll immer in Vordergrund bleiben.
und bei einen klick auf einen button soll er wieder normal werden...

HELP!!

Form2.show;

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Form1.Visible = False then
     Form1.Visible := True
  else
  Form1.Hide;
  SetWindowPos(Handle, HWND_TOPMOST, 0 , 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
end;

PS: Habe Windows XP falls das euch hilfen soll

[oki]

Hallo im Club der Fenster-Oben-Windows-XP-geschädigten!

Fenstereigenschaft stayOnTop geht auch nicht. Nur wenn einer auf die Idee kommt.

Gruß oki

[City Light]

Ich habs gefunden *freu*

Delphi-Quellcode:

{
[b]Ein Fenster einer Anwendung immer zuoberst anzeigen, auch bei minimiertem Hauptfenster[/b]

 Manchmal möchte man, daß geöffnete (Unter-)Fenster einer Anwendung auf dem Desktop bleiben, wenn das Hauptfenster minimiert wird, oder daß ein Fenster immer im Vordergrund bleibt, auch wenn es nicht den Fokus hat.

Ich will mal kurz zeigen, wie man das zur Laufzeit einstellen kann:
}
 
//OnTop..
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
//..und zurück:
SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

//OnDesktop..
SetWindowLong(Handle, GWL_HWNDPARENT, 0);
//..und zurück:
SetWindowLong(Handle, GWL_HWNDPARENT, Application.Handle);

 
//FormStyle dabei auf fsNormal setzen. Das ist alles! (Ralph Stoesser)

[City Light]

Nachtrag:

Nun leider funktioniert ein befehl immer noch nicht in meiner Anwendung!*heul*

Delphi-Quellcode:

//..und zurück: 
SetWindowLong(Handle, GWL_HWNDPARENT, Application.Handle);

hier was ich habe: Form2 wird mit Form2.Show; geöffnet und ist auf fsStayOnTopeingestellt ,und sollte es auch bleiben.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Form1.Visible = False then
  begin
     Form1.Visible := True
   [color=#ff002a]//..und zurück:
   SetWindowLong(Handle, GWL_HWNDPARENT, Application.Handle);[/color]
  end
  else
  Form1.Hide;
  //OnDesktop..
  SetWindowLong(Handle, GWL_HWNDPARENT, 0);
end;

Hat jemand einen Rat für mich?

[_frank_]

versuch mal nach den SetWindowLong Zeilen folgende Zeile:

SetWindowPos(handle, 0, 0, 0, 0, 0, SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_NOCOPYBITS);

ich brauch das immer, wenn ich den Style eines Controls verändere, um dieses zu "refreshen". vielleicht muss man dies bei GWL_HWNDPARENT auch machen.

Gruß Frank

[City Light]

Hallo Frank

Hat leider auch nicht geholfen!ich weiß da nich mehr weiter.. :cry: