Mega Code Archive

 

Categories / Delphi / Forms

 

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;