Einzelnen Beitrag anzeigen

Benutzerbild von PinKing2
PinKing2

Registriert seit: 9. Aug 2007
29 Beiträge
 
#42

Re: Form unschliessbar und onTop machen?

  Alt 27. Jan 2009, 19:37
Hallo himitsu,

vielen Dank für den Tipp. Wenn man erst weiss wonach man suchen muss...

Für die, die es noch interessiert, ich habs jetzt so gemacht
und es macht das was ich will:

Die Procedure CreateParams von oben im Thread muss im Programm sein und dann
kann man mit folgendem Code hin- und herschalten:


Delphi-Quellcode:
  
  if Form1.CheckBox_vorne.Checked then
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or 1);
      FormStyle := fsStayOnTop;
    end
  else
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or 0);
      FormStyle := fsNormal;
    end;
Vielen Dank für den prompten Tipp, hat mir sehr geholfen. Danke!

Gruss,

PinKing2.
  Mit Zitat antworten Zitat