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?
if sender = speedbutton1 then caption:='ggggg'
else caption :='zzzz';
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.