ok soweit so gut, die buttons hab ich erfolgreich erstellt, nun aber mein nächstes problem, ich will ncith für jeden der buttons ne OnKLick schreiben, kann man das irgendwie in einer Procedure bewältigen?
hier noch mal mein Code:
Delphi-Quellcode:
type
THangManWordInterface = class
private
public
Buttons: array[0..25] of TButton;
constructor Create(top,left:integer; owner: TComponent);
end;
[...]
Delphi-Quellcode:
constructor THangManWordInterface.Create(top,left: integer; owner: TComponent);
var i:integer; abc: string;
begin
abc:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
for i:=0 to 25 do begin
Buttons[i]:=TButton.Create(owner);
Buttons[i].Parent:=TWincontrol(owner);
Buttons[i].left:=i*20+left;
Buttons[i].Top:=top;
Buttons[i].Width:=20;
Buttons[i].Height:=20;
Buttons[i].Caption:=abc[i+1];
end;
end;