🚀 go-pugleaf

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.  *
*                                                               *
*      *
*****************************************************************