"Peder Hanghøj" <peder@hanghoej.dk> skrev i en meddelelse
news:3b57f4a3$0$69616$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg kan ikke få det til at virke!!
>
> "John Larsen" <jola@get2net.dk> skrev i en meddelelse
> news:3b5744cc$0$261$edfadb0f@dspool01.news.tele.dk...
> >
> >
> > Lidt i stil med :
> >
> > if Sender = Button1 then
> > begin
> > Gør det som Button1 gør
> > end
> > else
> > if Sender = Button2
> > begin
> > ... O.S.V.
> > end; ?
Sikkert min fejl :)
procedure TForm1.Button1Clik( Sender: TObject);
begin
if Sender = Button1 then
begin
Label1.Caption := 'Du klikkede på Knap1';
end
else
if Sender = Button2 then
begin
Label1.Caption := 'Du klikkede knap2';
end
else
if Sender = Label1 then
begin
Label1.Caption := 'Jeg nægter at svare på den forespørgsel';
end
else
if Sender := Memo1 then
begin
ShowMessage('Det er ikke sjovt længere');
end;
end;
I de ovennævnte kontroller button1, button2, label1 og Memo1 (der befinder
sig på din Form :), sætter du event OnClick til Button1Click så skulle den
være hjemme.
Hilsen
John