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 -