Fonksiyon ve Procedure İçinden Alert oluşturmak

[csyasar]

Merhaba,

 

bir butona tıklama sonucunda procedure'e  yönleniyorum. sonrasında eğer showmessage ve messagedlg ile bir alert görüntülemek istersem sistem kilitleniyor

 

Kodlar ve diğer bilgiler aşağıdaki şekildedir.

procedure TMainForm.btMuhClick(Sender: TObject);
begin

MessageDlg('Şuan ekranınızda ' + IntToStr(dm.qFat.RecordCount) + ' adet kayıt gösteriliyor.' +#13+#13+ 'Bu kayıtları muhasebelendirmek (Ödendi olarak işaretlemek) istediğinizden emin misiniz?', mtConfirmation, [mbYes, mbNo], muhonay);

end;

muhonay procedure

procedure muhonay(Sender: TComponent; Res: Integer);
begin
if Res=mrYes then begin
dm.qFat.First;
while not (dm.qFat.Eof) do begin

if dm.qFatdurum.AsString='Satın Alma' then begin
dm.qFat.Edit;
dm.qFatdurum.AsString:='Muhasebe';
dm.qFat.Post;
end;

dm.qFat.Next;
end;

end;

ShowMessage('Tamamlandı!');

end;

Eğer kodlar bu şekilde çalışırsa yazılımı çalıştıran servis ve yazılım kilitleniyor. muhonay'daki showmessage('Tamamlandı!') kodunu çıkarırsanız sorunsuz çalışıyor. hata nerede?

 

delphi 2010, unigui 0.99.10.1182

[Farshad Mohajeri]

procedure muhonay(Sender: TComponent; Res: Integer);
begin
if Res=mrYes then begin
dm.qFat.First;
while not (dm.qFat.Eof) do begin

if dm.qFatdurum.AsString='Satın Alma' then begin
dm.qFat.Edit;
dm.qFatdurum.AsString:='Muhasebe';
dm.qFat.Post;
end;

dm.qFat.Next;
end;

end;

ShowMessage('Tamamlandı!');

end;

"procedure muhonay" class fonksiyonu olarak yazılmadığı için VCL'deki  ShowMessage'ı çağrıyor. Bu yüzden servis kitleniyor.

 

 

Aşağıdaki gibi yapın düzelecektir.

procedure TMainForm.muhonay(Sender: TComponent; Res: Integer); 
begin 
...
end;

[csyasar]

yazdığınız şekilde sorunsuz çalıştı teşekkür ederim