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**

ShowMessage(TButton(Sender).Name);

**alcaeus**

Hi Christian,

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

markieren

Delphi-Quellcode:

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

...

Greetz
alcaeus

**MaxMara**

Super...Dank Euch

**sakura**

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

...

**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 von MaxMara:

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

Ja

Zitat von MaxMara:

Gibt es so was wie ein "free all"?

Nein, aber suche mal nach Hier im Forum suchen

FindComponent, damit kommt man uU gut voran

...

**Matze**

Es hilft auch Hier im Forum suchen

FindComponent.

Edit: Da war die Katze tatsächlich schneller.

**MaxMara**

Danke

Das hab ich auch vorher gesucht.
Gefunden habe ich das

hier

Daraus habe ich dann folgendes gemacht:

markieren

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

Name von selbsterzeugten Buttons

Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Re: Name von selbsterzeugten Buttons

Forumregeln

Mario Registriert seit: 7. Apr 2003 567 Beiträge Delphi 2006 Enterprise	#2 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 09:36 ShowMessage(TButton(Sender).Name); Schöne Grüße, Mario Noack
	Zitat

alcaeus Registriert seit: 11. Aug 2003 Ort: München 6.537 Beiträge	#3 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 09:37 Hi Christian, dazu kannst du den Sender-Parameter der OnClick-Funktion verwenden: markieren Delphi-Quellcode: if TButton(Sender).Name = 'Btn123' then ... Greetz alcaeus Andreas B. Die Mutter der Dummen ist immer schwanger. Ein Portal für Informatik-Studenten: www.infler.de
	Zitat

MaxMara Registriert seit: 27. Apr 2004 Ort: Wien 77 Beiträge Delphi 2007 Enterprise	#4 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 09:39 Super...Dank Euch
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#5 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 09:40 Als Tipp: Wenn der Feldwert ein Integer ist, dann würde ich den einfach in der Tag-Eigenschaft des Buttons hinterlegen ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

MaxMara Registriert seit: 27. Apr 2004 Ort: Wien 77 Beiträge Delphi 2007 Enterprise	#6 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 09:48 Guter Tipp Sakura...Danke
	Zitat

MaxMara Registriert seit: 27. Apr 2004 Ort: Wien 77 Beiträge Delphi 2007 Enterprise	#7 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 13:51 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
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#8 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 13:52 Zitat von MaxMara: Wäre nicht schlecht, wenn man die Buttons anschliessend wieder "freet" oder? Ja Zitat von MaxMara: Gibt es so was wie ein "free all"? Nein, aber suche mal nach FindComponent, damit kommt man uU gut voran ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#9 Re: Name von selbsterzeugten Buttons 28. Sep 2004, 13:52 Es hilft auch FindComponent. Edit: Da war die Katze tatsächlich schneller.
	Zitat