Sorgulama

[makxımus]

Arkadaşlar programda kullanıcı matris işlemlerini yaptıktan sonra kullanıcıya yeni bir işlem yapacak mısınız yada programı kapat seçeneklerini nasıl sorabilirim neyi kullanmam gerekiyor yardımcı olursanız sevinirim.

[brs]

Kod: Tümünü seç

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
  Cevap: Word;
begin
  Cevap := Application.MessageBox('Kapatmak İstediğinizden Emin Misiniz?',
    'Çıkış Onay!', MB_YesNo or MB_ICONQUESTION);
  begin
    if Cevap = MrYes then
    begin
      Application.Terminate; // Close
    end
    else
    begin
      if Cevap = MrNo then
      begin
        CanClose := False;
      end;
    end;
  end;
end;