Sender degiskeni

[z]

Sender degiskenine bakip gondereni begenmezsem procedure den cikmak istiyorum.

Ancak Sender icinde gelen bilgi nasil kontrol edilir bilmiyorum.

Ornegin.

procedure Tform1.OtomatikClick(Sender: Tobject);
begin
             if Otomatik.checked then
                 begin
                      if GlobalA=0 then 
                          begin
                               Otomatik.Checked:=false;
                               exit;
                           end:
                 end
             else
                 begin
                       Appliacation.messagebox('Otomatik moddan ciktiniz','',MB_OK);
                 end:
end:

Yukaridaki Otomatik Checkbox proceduru mouse ile tiklanip check yapilirsa
GlobalA degeri=0 ise Otomatik moddan cikiliyor. Bu esnada check isareti de kaldiriliyor.

Ancak bu isaret kaldirildiginda gene ayni procedure calisiyor ve otomatik moddan ciktiniz mesajini veriyor.
Halbuki bu checki zaten kendi kaldirdigi icin bu mesaji gormek istemiyorum.

Bunun icinde Sender degiskenine bakip eger kendim isem mesaj vermeden cikmak istiyorum.

Bu kontrol nasil yapilir?

[Klein]

if sender = speedbutton1 then caption:='ggggg'
      else caption :='zzzz';

[orhanc]

delphi ile alakalı bir kaç site var ve bir sürü bu tarz sorulara cevap bulabilirsiniz. delphi about, delphi basic,torrys ve delphinin kendi help dosyaları çok daha yardımcı olacaktır.