/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
OnClick på et array af Buttons
Fra : Leo Sørup


Dato : 29-08-02 13:27

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

 
 
Harald (29-08-2002)
Kommentar
Fra : Harald


Dato : 29-08-02 15:03

"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




Harald (29-08-2002)
Kommentar
Fra : Harald


Dato : 29-08-02 15:09

"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




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste