Nicht Verkleiner wenn man auf die Titelleiste klickt

[gmarts]

Zitat von ferby:

naja schad das nicht möglich ist......
kann man nichts machen........

Nicht resignieren. Es gibt bestimmt eine Lösung, die wird aber sicher nicht trivial sein.
Viel Glück!

[tuxhol]

Folgende Möglichkeit fällt mir noch ein:
Unterdrück doch einfach die Titelleiste. Wenn keine da ist, kann man schließlich auch nicht maximieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
 Save : LongInt;
Begin
 If BorderStyle=bsNone then Exit;
 Save:=GetWindowLong(Handle,gwl_Style);
 If (Save and ws_Caption)=ws_Caption then Begin
   Case BorderStyle of
     bsSingle,
     bsSizeable : SetWindowLong(Handle,gwl_Style,Save and
       (Not(ws_Caption)) or ws_border);
     bsDialog : SetWindowLong(Handle,gwl_Style,Save and
       (Not(ws_Caption)) or ds_modalframe or ws_dlgframe);
   End;
   Height:=Height-getSystemMetrics(sm_cyCaption);
   Refresh;
 End;
end;

Damit sollte das Problem gelöst sein.
Falls Du aus ästhetischen Gründen dennoch eine Titelleiste brauchst, nimmst Du entweder ein Label dafür und plazierst es hübsch oben über die ganze Breite oder einen Screenshot von Deiner alten Titelleiste, den Du in ein Image packst...

[ferby]

Hallo,

Danke für deine Lösung.

[Christian Seehase]

Moin ferby,

such' hier mal nach WM_NCLBUTTONDBLCLK