Name von selbsterzeugten Buttons

[MaxMara]

Hallo!

Ich habe zur Zeit folgendes Problem:
Ich erstelle auf einem Frame ein paar Buttons über ein SQL-Query:

Delphi-Quellcode:

      with TButton.Create(Self) do
      begin
        Top := k;
        Left := 360;
        Height := 17;
        Width := 75;
        Caption := 'bearbeiten';
        Name := 'Btn' + MySQLDataset1.fieldByName('adr_id').AsString;
        Parent := FrmAdrSearchFound.FrameSearchResults1;
        onClick := EditAdress;
    end;

Jeder dieser Buttons heisst zb: Btn125, Btn344, Btn1002,...

In dem EditAdress möchte ich fragen welcher dieser Buttons jetzt geklickt wurde.
Ist sicher ganz simpel, aber ich komm grad nicht drauf.

Danke für eure Hilfe.

Grüße
Christian

[Mario]

Delphi-Quellcode:

ShowMessage(TButton(Sender).Name);

[alcaeus]

Hi Christian,

dazu kannst du den Sender-Parameter der OnClick-Funktion verwenden:

Delphi-Quellcode:

if TButton(Sender).Name = 'Btn123' then
...

Greetz
alcaeus

[MaxMara]

Super...Dank Euch :cheers:

[sakura]

Als Tipp: Wenn der Feldwert ein Integer ist, dann würde ich den einfach in der Tag-Eigenschaft des Buttons hinterlegen ;-)

...:cat:...

[MaxMara]

Guter Tipp Sakura...Danke :)

[MaxMara]

Eine kleine Frage noch zu dem Thema:

Wäre nicht schlecht, wenn man die Buttons anschliessend wieder "freet" oder?
Gibt es so was wie ein "free all"? :?:

Danke nochmal.

grüße
Christian

[sakura]

Zitat:

Zitat von MaxMara

Wäre nicht schlecht, wenn man die Buttons anschliessend wieder "freet" oder?

Ja ;-)

Zitat:

Zitat von MaxMara

Gibt es so was wie ein "free all"? :?:

Nein, aber suche mal nach FindComponent, damit kommt man uU gut voran ;-)

...:cat:...

[Matze]

Es hilft auch FindComponent.


Edit: Da war die Katze tatsächlich schneller. :gruebel: :mrgreen:

[MaxMara]

Danke :)

Das hab ich auch vorher gesucht.
Gefunden habe ich das hier

Daraus habe ich dann folgendes gemacht:

Delphi-Quellcode:

procedure TFrmAdrSearchFound.FormClose(Sender: TObject;
  var Action: TCloseAction);
var I:integer;
begin
for I := 0 to FrmAdrSearchFound.ControlCount-1 do
  (FrmAdrSearchFound.Controls[I]).Free;
end;

Dann kommt raus:

Listenindex überschreitet das Maximum (1)

PS: Ihr antwortet ja schneller als die Polizei erlaubt :)