Mega Code Archive

 

Categories / Delphi / Forms

 

Programdan cikarken bitirme diyalogu icin faydali bir fonksiyon

FUNCTION ProgrammExit(Text:STRING):BOOLEAN; BEGIN RESULT:=MessageDlg(Text,mtConfirmation,[mbYes,mbNo],0)=mrYes; END; (* Kullanimi procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=ProgrammExit('Kapatmakmi istiyorsunuz?'); end; *)