castalia

[alakel]

arkadaşlar aaşğıda yazdığım kod castalia yüklü iken çalışmıyor. castalia yı kaldırdığımda ise çalışıyor

procedure TDM.CARIKARTBeforeDelete(DataSet: TDataSet);
var
cevap:word;
begin
cevap:=application.MessageBox('Bu kartı Silmek İstediğinizden Emin misiniz?'+#10+#13+'','Onaylama',MB_YesNo);
if Cevap=mrNo then
SysUtils.Abort; //Hayırsa İşlemi İptal Et
end;

verdiği hata mesajı

[Error] DMF.pas(82): Undeclared identifier: 'application'
[Error] DMF.pas(82): Missing operator or semicolon
[Error] DMF.pas(82): Undeclared identifier: 'MB_YesNo'
[Error] DMF.pas(83): Undeclared identifier: 'mrNo'
[Fatal Error] PROGE.dpr(9): Could not compile used unit 'DMF.pas'

[rsimsek]

castalia dediğin nesnenin ne olduğunu anlamadım Fakat Application.MessageBox() Forms unit inin içinde olduğundan şu şekilde de deneyebilirsin;

Kod: Tümünü seç

procedure TDM.CARIKARTBeforeDelete(DataSet: TDataSet);
begin
  if Forms.Application.MessageBox('Bu kartı Silmek İstediğinizden Emin misiniz?'+#10+#13+'','Onaylama',MB_YesNo) = mrNo then
  SysUtils.Abort; //Hayırsa İşlemi İptal Et
end;

[alakel]

çok teşekkürler. uses kısmında forms ekledim çözüldü. ama normalde kendi otomatik koyması gerekmezmiydi. bu arada yazdığım form datamodule idi.

[rsimsek]

Sanırım normal formlar gibi olmadığından DataModul'e Forms unitini eklemiyor.