ich habe noch eine weitere Methode gefunden mit der ich das Verschieben des Forms für jede Komponente Aktivieren kann, die ein OnMouseDown-Ereignis besitzt.
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if Button = mbleft then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;
Allerdings schaffe ich es nicht, dies in meine Komponente einzubauen, dass dies dann automatisch verwendet wird.
