---

Hej

Jeg definerer et array af Buttons under Public.
I FormCreate bliver de defineret i stil med:
for i:=0 to 7 do begin
button[i]:=TButton.create(FormMain);
button[i].parent:=FormMain;
button[i].width:=70;
button[i].height:=20;
button[i].caption:='Klik';
button[i].top:=40 ;
button[i].left:=30+i*80;
end;

Hvordan får jeg nu lavet en OnClick til disse Buttons??


Med venlig hilsen
Leo Sørup

---

"Leo Sørup" <LS@ikast-gym.dk> skrev i en meddelelse
news:2bf21800.0208290426.ae80dc7@posting.google.com...
> Hej
>
> Jeg definerer et array af Buttons under Public.
> I FormCreate bliver de defineret i stil med:
> for i:=0 to 7 do begin
> button[i]:=TButton.create(FormMain);
> button[i].parent:=FormMain;
> button[i].width:=70;
> button[i].height:=20;
> button[i].caption:='Klik';
> button[i].top:=40 ;
> button[i].left:=30+i*80;
> end;
>
> Hvordan får jeg nu lavet en OnClick til disse Buttons??

Du laver en procedure der ser sådan ud:
procedure TForm1.ButtonALLClick(Sender: TObject);
begin
//gør ting
end;

og så tilføjer du i din løkke:
button[i].OnClick:= ButtonALLClick;

for at kunne skelne mellem de enkelte buttons i ButtonALLClick kan du evt
sætte Tag=i sådan:
button[i].Tag:=i;

Mvh
HK

---

"Leo Sørup" <LS@ikast-gym.dk> skrev i en meddelelse
news:2bf21800.0208290426.ae80dc7@posting.google.com...
> Hej
>
> Jeg definerer et array af Buttons under Public.
> I FormCreate bliver de defineret i stil med:
> for i:=0 to 7 do begin
> button[i]:=TButton.create(FormMain);
> button[i].parent:=FormMain;
> button[i].width:=70;
> button[i].height:=20;
> button[i].caption:='Klik';
> button[i].top:=40 ;
> button[i].left:=30+i*80;
> end;
>
> Hvordan får jeg nu lavet en OnClick til disse Buttons??

Lige en anden ting, det array under Public du har defineret, er det noget du
skal bruge til noget? Hvis ikke så kan du lave dine knapper sådan:

for i:=0 to 7 do begin
With TButton.Create(FormMain) do
begin
width:=70;
height:=20;
caption:='Klik';
top:=40 ;
left:=30+i*80;
Tag:=i;
OnCLick:=ButtonALLClick;
parent:=FormMain;
end;

Mvh
HK