Hi
Zitat von
Luckie:
Schon mal auf der Ereigniossseite des Objektinspektors für das Formular geguckt?
Mir ist kein Ereignis des Formulares bekannst, das auf's Verschieben reagiert. Manuell ginge es sicher, indem man die Nachricht WM_MOVE abfängt. Doch müsste es auch gehen, wenn man die Eigenschaft
Align auf
alCustom setzt (Falls man das Formular nicht verschieben können soll).
Randbemerkung: Falls man auch die Größe des Formulas ebenfallsnicht ändern soll, musst du
BorderStyle auf
bsSingle stellen.
Soll man das Formular weiterhin verschieben können, musst du
imho über MW_MOVE gehen:
Delphi-Quellcode:
procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
// ...
procedure TForm1.WMMOVE(var Msg: TWMMove);
begin
inherited;
// Hier eine prozedur ausführen
end;