FormCloseQuery çıkış mesajı

[erdogan_ozkaya]

rkadaşlar aşağıdaki kod çalışıyor fakat hayır desemde kapanıyor

amaç form close mesaj ekleme

Kod: Tümünü seç

procedure TANA_PENCERE.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);

var c:word;
begin
c:=MessageDlg('Çıkmak istiyormusunuz?',MtConFirmation,[mbYes,mbNo],0);
if c=mrNo then //No seçildiyseAction:=caNone;// Çıkışı iptal etend;
end;

[unicorn64]

No seçildiyse CanClose:=false; yapın

[erdogan_ozkaya]

tşk