🚀 go-pugleaf

Here is the long way, there is a very short way by sending a "magic number"
to it, but I forgot. If I find it again, I will post it.

  TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
     procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
     procedure Button1MouseUp(Sender: TObject; Button:
       TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     { Private declarations }
   public
     { Public declarations }
     MouseDownSpot : TPoint;
     Capturing : bool;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TForm1.Button1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
   if ssCtrl in Shift then begin
     SetCapture(Button1.Handle);
     Capturing := true;
     MouseDownSpot.X := x;
     MouseDownSpot.Y := Y;
   end;
 end;

 procedure TForm1.Button1MouseMove(Sender: TObject;
 Shift: TShiftState; X,  Y: Integer);
 begin
   if Capturing then begin
     Button1.Left := Button1.Left - (MouseDownSpot.x - x);
     Button1.Top := Button1.Top - (MouseDownSpot.y - y);
   end;
 end;

 procedure TForm1.Button1MouseUp(Sender: TObject; Button:
     TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
   if Capturing then begin
     ReleaseCapture;
     Capturing := false;
     Button1.Left := Button1.Left - (MouseDownSpot.x - x);
     Button1.Top := Button1.Top - (MouseDownSpot.y - y);
   end;
 end;

Zimba schreef:

> please I want to be able create components at runtime as my codes below
> show but I would like to be able to move them to desired positions. Does
> anyone know how I can move them around? Right now I can only create them
> with the codes below below I cannot move them around.
>
> Zimba
>
> procedure TOutputForm.FormMouseDown (
>   Sender: TObject; Button: TMouseButton;
>   Shift: TShiftState; X, Y: Integer);
> var
>   MyClass: TComponentClass;
>   MyComp: TComponent;
> begin
>   MyClass := TComponentClass (
>     GetClass (MainForm.ComboBox1.Text));
>   if MyClass = nil then
>     Beep
>   else
>   begin
>     MyComp := MyClass.Create (self);
>     MyComp.Name := MainForm.GetNextName (MyClass);
>     if MyClass.InheritsFrom (TControl) then
>     begin
>       TControl (MyComp).Left := X;
>       TControl (MyComp).Top := Y;
>       TControl (MyComp).Parent := self;
>     end;
>   end;
>   MainForm.UpdateList;
> end;
>
> --
>
> *****************************************************************
> *PLEASE, TO SEND ME AN E-MAIL REMOVE "REMOVE" FROM MY ADDRESS.  *
> *                                                               *
> *      *
> *****************************************************************