dynamische erzeugte buttons und onclick procedure

**Sevine**

(ich bin LumpN)

<LumpN> ich habe da also buttons zur laufzeit erzeugt ABER
<LumpN> jetzt soll der button eine onclick procedure zugewiesen bekommen
<LumpN> und die procedure soll daten vom button der die gestartet hat als parameter bekommen
<LumpN> was tun?
<bA[r]ecus> die onclick proc von dem dynamisch erzeugten button einer procedure zuordnen
<bA[r]ecus> daher NewButton.OnClick:=Bla(asdf);
<LumpN> jo ich habe geschrieben (im with ...create do): onClick:=bla
<LumpN> moment muss ich die procedure so nennen wie der button.name ist?
<bA[r]ecus> dann kannst in der procedure den Sender überprüfen
<bA[r]ecus> ne
<LumpN> arg ich habe aber eine horde buttons gemacht die alle eine procedure aufrufen sollen aber bei mir kommt dann immer [Error] map.pas(80): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'
<LumpN> also onClick:=bla(Hint); <-- und als hint soll der buttonhint übergeben werden
<LumpN> wenn ich die proc bla(sender:TObject); nenne wirds auch nicht besser, dann kommt: [Error] map.pas(80): Incompatible types: 'method pointer and regular procedure'
<LumpN> wenn ich onClick:=bla; aufrufen will

*dummen fehler such*

**sakura**

Schreibe Deinen Beitrag bitte so, dass man den auch lesen kann/will. Um Listen zu erstellen kannst Du die UBB Tags nutzen.

[ l i s t ] umd die Liste zu starten
[ * ] für jeden Listeneintrag
[ / l i s t ] um die Liste wieder zu schliessen

**nailor**

Ei, ich nehm an, das er von xy dynamisch erzeugten Buttons das OnClick-Ereignis definieren will. Dem Array ein OnClick zuweisen und den Sender abfragen, würde ich sagen.

**Minz**

Hi,

also es wäre hilfreich, wenn du ein kleines Beispiel von dir postest.

Ansonsten kann ichs mal so versuchen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure machbutton(x,y:integer);

begin

     button:=TButton.Create(Form1);

     button.left:=x;

     button.top:=y;

     button.onClick:=ButtonClick;

end;

procedure TForm1.ButtonClick;

begin

     ...

end;

Funktionierts so?

Gruß Minz

[EDIT=Christian Seehase]Delphi - Tags hinzugefügt[/EDIT]

**Christian Seehase**

Moin Minz,

erst einmal herzlich willkommen.

Das sollte wohl so funktionieren, wenn Du machbutton als Methode von TForm1 deklarierst, sonst müsste die Zuweisung von ButtonClick vom Compiler als nicht auffindbar angemeckert werden.

**nailor**

zusammenfalten · markieren

Delphi-Quellcode:

			//yup, und wenn du das ganze als array machst und dann

procedure TForm1.ButtonClick;

begin

  //hier

  if sender = button[0] then ...

  if sender = button[1] then ...

  if sender = button[2] then ...

  ...

  //einfügst, macht jeder Knopf was andres

end;

**nailor**

Die procedure muss du natürlich
procedure TForm1.ButtonClick(Sender: TObject);
deklarieren

**Minz**

danke fürs Willkommen!

sind mir doch tatsächlich ein paar kleine Schnitzer passiert

Also Grüßerle
Minz

**CalganX**

Zitat von Nailor:

zusammenfalten · markieren

Delphi-Quellcode:

			//yup, und wenn du das ganze als array machst und dann

procedure TForm1.ButtonClick;

begin

  //hier

  if sender = button[0] then ...

  if sender = button[1] then ...

  if sender = button[2] then ...

  ...

  //einfügst, macht jeder Knopf was andres

end;

Sicher ist sicher:

markieren

Delphi-Quellcode:

			procedure TForm1.ButtonClick(Sender: TObject); // 1. Fehler ;)

begin

  if (Sender is TButton) then begin

    if (Sender As TButton) = Button[0] then { ... }

  end;

end;

Das Sender AS TButton ist eigentlich dann schon wieder überflüssig...

Chris

**nailor**

1. hab ich selber noch korrigiert

2. sicher ist sicher: willst du das teil in der bank of london benutzen?

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#2 19. Dez 2002, 16:18 Schreibe Deinen Beitrag bitte so, dass man den auch lesen kann/will. Um Listen zu erstellen kannst Du die UBB Tags nutzen. [ l i s t ] umd die Liste zu starten [ * ] für jeden Listeneintrag [ / l i s t ] um die Liste wieder zu schliessen Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#3 19. Dez 2002, 16:41 Ei, ich nehm an, das er von xy dynamisch erzeugten Buttons das OnClick-Ereignis definieren will. Dem Array ein OnClick zuweisen und den Sender abfragen, würde ich sagen. Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#7 19. Dez 2002, 16:53 Die procedure muss du natürlich procedure TForm1.ButtonClick(Sender: TObject); deklarieren Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

Minz Registriert seit: 19. Dez 2002 476 Beiträge	#8 19. Dez 2002, 16:58 danke fürs Willkommen! sind mir doch tatsächlich ein paar kleine Schnitzer passiert Also Grüßerle Minz
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#10 19. Dez 2002, 17:48 1. hab ich selber noch korrigiert 2. sicher ist sicher: willst du das teil in der bank of london benutzen? Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

dynamische erzeugte buttons und onclick procedure

dynamische erzeugte buttons und onclick procedure

Forumregeln