/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177496
Tips :
31968
Nyheder :
719565
Indlæg :
6408490
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.