Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. Diloglu çıkış
procedure TUmainwiev.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Application.MessageBox('Çıkmak istediğinize Eminmisiniz', 'Lütfen Onaylayın',4+32) = IDYes;
end;