new event

[emil]

i'm working on a game
there is many panels with many buttons (menu)
i've made an array of panels and buttons
but i need the event - action - when the button is clicked
need something very very simple

help please

[BitBangerUSA]

select one of your buttons on the form.
in the IDE Object Inspector, click on the Events tab.
here you can click on the 'On Click' event and select a Event Handler (procedure in your code) to perform what you want when the button is clicked by the user.

[Windsurfer]

Two methods:

1) Double click on the button and the OnClick procedure will be completed.

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin

end; 

2) Open the ObjectInspector, select the button at the top, then go to the events tab and click on the ellipsis ... symbol.

[emil]

procedure button[1]Click(sender:TObject);
begin
     with button[1] do
     begin
          onclick:=@button[1]click;
     end;
end;

procedure form1.button[1]Click(sender:TObject);
begin

end;


why it doesnt work?
unit1.pas(230,16) Error: overloaded identifier "buton" isn't a function

[Windsurfer]

You are making it more difficult than it is.
Go to the outline of the new procedure, and just enter your code. Try the example below.

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Color := clRed;
  Button1.Caption := 'Success';
end; 

[taazz]

procedure button[1]Click(sender:TObject);
begin
     with button[1] do
     begin
          onclick:=@button[1]click;
     end;
end;

procedure form1.button[1]Click(sender:TObject);
begin

end;


why it doesnt work?
unit1.pas(230,16) Error: overloaded identifier "buton" isn't a function

is button an array? If not then this will never work remove the brackets. Even if it is a array you are not allowed to use brackets in the name of a method so procedure button[1]Click(sender:TObject); is not valid again remove the brackets. when the brackets have been removed from the code then post the exact error message so we can take a look

[Martin_fr]

If you have somewhere

Code: [Select]

  button: array of TButton

then create an event for the forms "OnCreate" method (should happen by double clicking the form)

in there do
1) if you have NOT yet created the buttons

Code: [Select]

  SetLength(button, 25);
  for i := 0 to length(button) do begin
     button[i] := TButton.create(self)
     button[i].parent :- self; // or a panel, if you have
     button[i].top := ....
  end;

2) for the OnClick

Code: [Select]

  for i := 0 to length(button) do begin
     button[i].OnCreate := @MyButtonClickHandleThatINamedWhateverILiked;
  end;

press shift=ctrl-C on the MyButtonClickHandleThatINamedWhateverILiked and the method will be created.

[Mike.Cornflake]

procedure button[1]Click(sender:TObject);

1.  Not valid pascal.  You can't have [ or ] in a procedure/function name.
2.  This procedure needs to belong to the Form object.  As it is, any button you try to reference will be unknown within that procedure.

          onclick:=@button[1]click;

Same syntax error as above.

I'm going to assume here you've tried to declare button[1] as a control name.  Not valid pascal syntax.  You may also be assuming that button[1] gives you a button in an array you think the form has.  This isn't the case.  If you have multiple buttons, you will need to create and manage such an array your self.  Of course, you may not be making this mistake and it's just the syntax error that's tripping you up.

why it doesnt work?

unit1.pas(230,16) Error: overloaded identifier "buton" isn't a function

if you typed this by hand and mispelt Buton, then this is how the compiler has attempted to compile your syntax error.  Garbage In, Garbage Out...

IF you have a control named Button1 and you've correctly declared FormCreate and Button1Click, then the following should work...

Code: [Select]

procedure form1.FormCreate(sender:TObject);
begin
     with button1 do
     begin
          onclick:=@button1click;
     end;
end;

procedure form1.button1Click(sender:TObject);
begin

end;

[emil]

Ok guys
thx for help
specialy to Martin_fr
my code looks like:
...
for i:=1 to 10 do
          begin
              button:=TButton.create(form1);
              button.parent:=panel[1];
              button.enabled:=true;
          end;
...
{from here}
procedure TForm1.MyButtonClickHandle(Sender: TObject);
begin

end;
{to here, i didnt write anything, i CLICKED on MyButtonClickHandle , pressed shift-ctl-c, and it apeared}

procedure TForm1.FormClick(Sender: TObject);
begin
     button[1].Onclick:=@MyButtonClickHandle;
end;

[Martin_fr]

procedure TForm1.FormClick(Sender: TObject);
begin
     button[1].Onclick:=@MyButtonClickHandle;
end;

That should be FormCreate Not Click.

Or better, that should be in the same place where you already create your buttons.

---

{to here, i didnt write anything, i CLICKED on MyButtonClickHandle , pressed shift-ctl-c, and it apeared}

You really want to read this page: http://wiki.lazarus.freepascal.org/Lazarus_IDE_Tools

[emil]

    button[1].OnCreate:=@BuildForest;
    button[1].FormCreate:=@BuildForest;
    button[1].onFormCreate:=@BuildForest;

doesnt work:

unit1.pas(291,15) Error: identifier idents no member "OnCreate"

same error to all the 3 cases

          for i:=1 to 10 do
          begin
              button:=TButton.create(form1);
              button.parent:=panel[1];
              button.enabled:=false;
              button[1].OnCreate:=@BuildForest;
          end;                       

unit1.pas(282,25) Error: identifier idents no member "OnCreate"


BUT

if i write "onclick" and press ctrl-shift-c, it works properly

[Never]

@emil
you have your form (A)
you want your buttons (Bs) in (A)
you create the buttons when (A) begins to live ---->inside (A) create event
assign the events for your (Bs) just then ----->inside (A) create event and after your (Bs)  are created
------------------------
create (A)+
                 |--->create(Bs)
                 |--->assign (Bs) events
show(A)
.....
....
click(A)
.....
......other events....

[Mike.Cornflake]

    button[1].OnCreate:=@BuildForest;

The compiler is not lying to you.  There is no OnCreate event for you to assign to.  To verify, drop a TButton on the form.  Have a look in the Object Inspector.  There is a tab there called Events.  That's the list of events (see attached).

Besides - if you look at your code, there's something wrong in your logic.

1.  You create the button

Code: [Select]

button[i]:=TButton.create(form1);
Two lines later, you attempt to hook to an OnCreate.

Code: [Select]

button[1].OnCreate:=@BuildForest;
(did you mean to use an i in there, not a 1?)

This is too late.  At the TButton has already been created, if the OnCreate event existed (which it doesn't for TButton), then hooking up to it at this point will achieve nothing.  You needed to hook up to it BEFORE the control was created.  Object Oriented code is what you most probably need, but for now, there's an easier way....

Quite simply, as you are the person creating the TButton, you can fire the "OnCreate" yourself...

Code: [Select]

          for i:=1 to 10 do
          begin
              button[i]:=TButton.create(form1);
              button[i].parent:=panel[1];
              button[i].enabled:=false;
              BuildForest(button[i]);
          end;        

Finally, please use [ code ] tags instead of [ quote ] tags when posting code.  [ quote ] tags gets confused when you use [ i ], they think you want to start italics   (Don't use spaces in the tags, I added them to trick the forum into displaying the text instead of rendering them as tags...)

[ThomasK1201]

for i:=1 to 10 do
          begin
              button:=TButton.create(form1);
              button.parent:=panel[1];
              button.enabled:=true;
          end;
...
{from here}
procedure TForm1.MyButtonClickHandle(Sender: TObject);
begin

end;
{to here, i didnt write anything, i CLICKED on MyButtonClickHandle , pressed shift-ctl-c, and it apeared}

procedure TForm1.FormClick(Sender: TObject);
begin
     button[1].Onclick:=@MyButtonClickHandle;
end;

One very useful tip (or at least I found it useful when it was told to me):
Use more spaces. So:

Code: [Select]

for i:=1 to 10 do
          begin
              button[i]:=TButton.create(form1);
              button[i].parent:=panel[1];
              button[i].enabled:=true;
          end;

will become:

Code: [Select]

for i:=1 to 10 do
          begin
              button[i] := TButton.create(form1);
              button[i].parent := panel[1];
              button[i].enabled := true;
          end;
So first Button.Enabled. Then add a space. Then add := , then add a space and then True. Button.Enabled := True;