Form unschliessbar und onTop machen?

[himitsu]

du kannst ja mal testen was passiert, wenn du WS_OVERLAPPED per SetWindowLong setzt/löschst

und die BorderIcons kannst du auch immer ändern.

[PinKing2]

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.

[himitsu]

hmmmmmmm

GWL_EXSTYLE:
or 1 = or WS_EX_DLGMODALFRAME
or 0 = überhaupt keine Änderung

sicher, daß da alles stimmt?

[PinKing2]

Tja, keine Ahnung, aber es tut das was ich wollte.
Wie gesagt: Hobbyprogrammierer

Wenn ich es anders machen muss, wüsste ich gern wie...

[himitsu]

das CreateParams und dann nur noch dieses ...geht das auch?

Delphi-Quellcode:

if Form1.CheckBox_vorne.Checked then
  FormStyle := fsStayOnTop
else
  FormStyle := fsNormal;

[mannewolff]

Hmm.

1. StayOnTop auf True setzen.
2. OnCloseQuery überschreiben (canclose auf false setzen), dann kann das Programm nicht mit dem Kreuz oben Rechts geschlossen werden.

Viel mehr ist mit Delphi-Boardmitteln nicht zu machen.

[QuickAndDirty]

Wenn es nur was anzeigen sollte hätte ich mir den Geräte Kontext "DISPLAY" gezogen drauf rum gemalt.

[PinKing2]

Hi himitsu,

Zitat:

das CreateParams und dann nur noch dieses ...geht das auch?

Delphi-Quellcode:

Delphi-Quellcode: markieren 
if Form1.CheckBox_vorne.Checked then 
  FormStyle := fsStayOnTop 
else 
  FormStyle := fsNormal;

stimmt, das reicht anscheinend völlig aus. Vielen Dank für den Tipp und
Deine Bemühungen!

Gruss,

PinKing2

[Micha88]

Hört sich für mich stark nach einen Programm an, womit man Schaden anrichten will ..

Für sowas würde ich keine Informationen geben