Drag and Drop a TButton object on the Form

[theo]

I don't really get what you're after, but this seems like a logical problem in your code, not really a Pascal/Lazarus problem.
try
Brain.Enabled:=true;
;-)

[IndianaJones]

Brain.Enabled:=true;

I agree with you, but none of the components have this property.
Thanks.

[IndianaJones]

@theo, I have a simple question.
I want to trigger ButtonsClick from inside the FormClick procedure?
How can I trigger any event?
Thanks.

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  indexno:=(Sender as TButton).ComponentIndex;
  StatusBar1.SimpleText:=inttostr(indexno);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
     if buttonclick then
        begin
     With TButton.Create(self) do
          begin
               Parent:=self;
               Name:='';
               Left:=p.x;
               Top:=p.y;
               Width:=60;
               Height:=20;
               OnClick:=@ButtonsClick;
               OnMouseDown:=@ButtonsMouseDown;
          end;
        end;

     buttonclick:=false;
     BitBtn1.Enabled:=true;
end;                                               

[theo]

I want to trigger ButtonsClick from inside the FormClick procedure?
How can I trigger any event?

Do you really want to trigger it or just call the event handler?
I guess it's the latter, so just call
ButtonsClick(MyButton);

[IndianaJones]

I used like this in the Procedure FormClick:

procedure TForm1.FormClick(Sender: TObject);
begin
     if buttonclick then
        begin
     With TButton.Create(self) do
          begin
               Parent:=self;
               Name:='';
               Left:=p.x;
               Top:=p.y;
               Width:=60;
               Height:=20;
               OnClick:=@ButtonsClick;
               OnMouseDown:=@ButtonsMouseDown;
          end;
        end;
ButtonsClick(Components[indexno]);
     buttonclick:=false;
     BitBtn1.Enabled:=true;
end;                                               

When I execute the application and put a tbutton on the form, I get the following error at the line   indexno:=(Sender as TButton).ComponentIndex; 
Project project1 raised exception class 'RunError(219)'.
Thanks

[theo]

Then don't use "with".

Code: [Select]

aButton:=TButton.Create(self);
aButton.Parent:=self;
...
ButtonsClick(aButton);


[IndianaJones]

@theo, thank for your help, without 'with' works perfect.
Best Regards.

[rocotilos]

Other way is to use the TAG property. So u can refer the button with the tag number. Eg, if u have 10 buttons. button 1 have a tag of 1, etc..

[IndianaJones]

Thanks for the information,
Anyway I have another question, Is it possible to drop a tbutton on the TImage on runtime?

aButton:=TButton.Create(self);
Can I use aButton.Parent:=Image1 instead of aButton.Parent:=self;
Thanks