When makeing a button at runtime, how can I set the onClick event?

[Kudel]

Hi!

I'm creating a button at runtime and need to set it's onClick event. I've got a function named "Save" that is supposed to run when sombody click's the button.

with tbutton.Create(Form1) do
  begin;
  Parent  := Form1;
  Left    := 150;
  Top     := nyeTop;
  Caption := 'Save ' + Ticker;
  Name    := 'btn' + Ticker;
  Visible := True;
  onclick := ?????;
  end;

Kudel

 

[LucieLastic]

OnClick := Myfunction;

MyFunction being the method you want to link to the event.

 

[Roderich]

hi Kudel,

first you have to declare a method in the private part of your form class:
procedure MySaveButtonClick(Sender: TObject);


it's body could read:
procedure TForm1.MySaveButtonClick(Sender: TObject);
begin
Save; // or something else
end;


and then just set the OnClick of your newly created button:
OnClick := MySaveButtonClick;


this should work !

best regards
Roderich

 

[Roderich]

hi Weez,

once again simultaneously answering )

Roderich

 

[Kudel]

Good.. now let's crank it up a notch

How can I tell the "Save" function which button that was clicked?

 

[LucieLastic]

In your 'Click' function, you need:-

proc. MyClickthingy(Sender : TOBject);
begin
if Sender is TButton then
begin
if (Sender as TButton).name := 'btnSave'
then Save;
if (Sender as TButton).name := 'btnSomethingElse'
then doSomethingElse;
etc...
end;

Roderich, people'll think we've nothing better to do

 

[Kudel]

Beautiful.. and now even harder

While I creat the button I also creat a Edit field. The name of the button is 'btn' + the name of the edit field. My save function is supposed to save the value in edit.text when I click on the button.

I know how to save the edit.text to my db, but how can I get access to edit.text?

 

[LucieLastic]

Kudel, what do you mean exactly 'get access'. Do you just need to extract the name of the edit from the button's name? If it's not that straight forward, you can associate controls by setting the .tag property, then search thru componentCount looking for associated controls.

 

[Kudel]

Hi

I've solved it myself, but thank you for all youre help.

This is how it turned out:

procedure TForm1.MySaveButtonClick(Sender: TObject);
var
tempName: string;
RunTimeEdit : TObject;
begin
tempName := stringreplace((Sender as TButton).name,'btn','',[]);
RunTimeEdit := form1.FindComponent(TempName);
Save((runtimeedit as TEdit));
end;

procedure TForm1.Save(temp: TEdit);
begin
form1.q.SQL.Clear;
form1.q.SQL.Text := 'insert into mytable values(''' + temp.text + ''',''' + temp.name + ''')';
form1.q.ExecSQL;
end;

-Kudel