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*