/ 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
Kald af procedure med flere knapper
Fra : Esben Piltoft


Dato : 17-05-01 20:19

Er det muligt - hvis flere knapper kalder samme procedure - at se hvilken af
knapperne der er blevet trykket på/har lavet kaldet (hvor koden til at se
hvilken knap, skal befinde sig i den fælles procedure)???

Står der (hvis det er muligt) noget om dette i hjælpefilerne - godt gemt -
(eller på nettet) ???


Pft.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Esben Piltoft E-mail: piltoft@mail1.stofanet.dk





 
 
Thomas P (17-05-2001)
Kommentar
Fra : Thomas P


Dato : 17-05-01 20:39

> Er det muligt - hvis flere knapper kalder samme procedure - at se hvilken
af
> knapperne der er blevet trykket på/har lavet kaldet (hvor koden til at se
> hvilken knap, skal befinde sig i den fælles procedure)???

fx

showmessage((sender as TButton).name);

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes



Niels (17-05-2001)
Kommentar
Fra : Niels


Dato : 17-05-01 21:30

Just as I expected, Esben Piltoft came up with this:

>Er det muligt - hvis flere knapper kalder samme procedure - at se hvilken af
>knapperne der er blevet trykket på/har lavet kaldet (hvor koden til at se
>hvilken knap, skal befinde sig i den fælles procedure)???

Der kan du bruge Sender parametren. Den er typet som TObject, så hvis du
vil gøre noget med den skal du først vide hvilken type det er. Hvis du
er helt sikker på det kun er knapper der kalder eventen kan du gøre
således:

procedure TForm1.KlikKnapper(Sender: TObject);
begin
with Sender as TButton do
begin
// Her kan du arbejde med knappen, f.eks.:
Caption := 'Jeg blev klikket!';
// Sætter caption på den knap man klikkede på.
end;
end;

Hvis du bare vil vide hvilken af knapperne der blev klikket på kan du
gøre sådan:

procedure TForm1.KlikKnapper(Sender: TObject);
begin
if Sender = Button1 then
// gør noget
else if Sender = Button2 then
// Gør noget andet
else
// hvis det ike var en af de to
end;

--
Niels aka. niLLer aka. G4S
<-------------------------<=\ CONTACT /=>---------->
e-mail: nmartin at iname dot com | ICQ UIN: 50187323
---> http://www.niller.f2s.com/ <-- niLLer's pages -

Esben Piltoft (19-05-2001)
Kommentar
Fra : Esben Piltoft


Dato : 19-05-01 08:53

Mange tak!

Jeg havde ikke helt fattet ideen med "Sender" - men jeres svar fik brikkerne
til at falde på plads :)

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Esben Piltoft E-mail: piltoft@mail1.stofanet.dk





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