opret knap runtime

er ikke sikker på at jeg helt forstår, men du er nød til at udføre den handlig som skal ske under "KnapKlik", derfra må du så kalde den funktion du fx ønsker.

Du kan med fordel bruge proceduren "KnapKlik" til flere knapper og få tilgang til dem via "sender" object

function test(i,j : integer):integer;
begin
result := i + j;
end;

procedure TForm1.KnapKlik(Sender: TObject);
begin
showmessage(inttostr(test(5,6,)));
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Button: TButton;
  x,y : integer;
begin
      Button := TButton.Create(self);
      Button.Name := 'NewBtn';
      Button.Parent := TabSheet4;
      Button.Width := 22;
      Button.Height := 22;
      Button.Top := 0;
      Button.Left := 210;
      Button.OnClick := KnapKlik;
end;

Stoney

Under opret knap bliver der også oprettet nogle variabler(s1 := 'Hansen'; s2 := 'Peter';),  som sendes til Functionen, dette fordi der kan oprettes flere knapper der kalder den samme function, men med forskellige variabler.

hvis du skal have det til at se sådan ud, kunne det ende med at du skulle lave din egen component udfra tbutton med nogle set-bare variabler.

Men syntes nu du skulle overveje en anden måde at designe det på hvis det er muligt

Undskyld men, Hvordan så ??

du kunne lave en object til de variabler:
fx

Type
TPersonData = class(TObject)
  Navn : String;
  EfterNavn : String;
end;

var
PersonList:TList;

...

Oncreate:
PersonList:=TList.create;


procedure TForm1.KnapKlik(Sender: TObject);
var
  Person : TPersonData;
begin
  Person := pointer(PersonList.Item[((sender as TButton).Tag]);
  showmessage(Person.Navn+#13#10Person.EfterNavn);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Button: TButton;
  x,y : integer;
  Person : TPersonData;
begin
      Person := TPersonData.create;
      Person.Navn := 'Peter';
      Person.EfterNavn := 'Hansen';
      PersonList.add(Person);

      Button := TButton.Create(self);
      Button.Tag := PersonList.Count; // Index til PersonList
      Button.Name := 'NewBtn';
      Button.Parent := TabSheet4;
      Button.Width := 22;
      Button.Height := 22;
      Button.Top := 0;
      Button.Left := 210;
      Button.OnClick := KnapKlik;
end;




Koden er ikke testet

Mange tak
Med lidt redigering fik jeg det til at virke efer hensigten.!