Fenster mit Titel verschieben, nur bei best. Komponenten

[DevilsCamp]

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.