pFIBDataSet1 in eventlerinde procedure çağırma

[habikus]

Merhabalar,

Kod: Tümünü seç

procedure TForm6.pFIBDataSet1AfterInsert(DataSet: TDataSet);
begin
Button1Click(Sender);
end;

Yukarıdaki Button1Click(Sender); procedurunu çalıştırınca aşağıdaki hatayı alıyorum. Halbuki Button1Click(Sender); procedurunu başka nesnelerin olaylarında çağırınca hata vermiyor. pFIBDataSet1 in bütün olaylarında hata veriyor tanımlanmamış diyor. Hikmeti ne olabilir acaba?

[DCC Error] deneme.pas(2238): E2003 Undeclared identifier: 'Sender'
[DCC Warning] deneme.pas(2704): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Warning] deneme.pas(3061): W1011 Text after final 'END.' - ignored by compiler
[DCC Fatal Error] F2063 Could not compile used unit 'deneme.pas'

[mrmarman]

[DCC Error] deneme.pas(2238): E2003 Undeclared identifier: 'Sender'

- Sender aslında biz gizli öznedir, tek başına bir anlamı yoktur. Yanında onun tanımlayıcı lazımdır.
- Procedure'ün parantez içindeki parametresinde Sender ifadesi olmadığından bu hatayı alıyorsunuz.

Sender yerine DataSet dersen sorun olmaz. Çünkü Button1'e kullanıcı mı bastı yoksa başka bir yerden Click procedure mü çalıştı işlemini ayırt etmek için bu dediğimi yapabilirsin.

- ButtonClick olayında da ( orada parametrede Sender görürsün )

Kod: Tümünü seç

procedure TForm6.Button1Click(Sender: TObject);

if (Sender is TDataSet) then begin ... end; deyip bu olayın kullanıcının butona basmadığı zamanki, IBDataSet1AfterInsert içinden tetiklendiğindeki durumu anlamış olursun.

[habikus]

Verdiğiniz bilgi için teşekkür ederim.