Topic: MessageBox
Hello
Anybody can give me an example of MessageBox on how to apply in MVD.
Thanks!
My Visual Database → General → MessageBox
Hello
Anybody can give me an example of MessageBox on how to apply in MVD.
Thanks!
Hello manixs2013
Beginning of a clue :
MessageBox can modify caption of a message. By example, if Windows OS is into french, then buttons will be into french.
Example:
if IDYES = MessageBox('Message', 'Caption', MB_YESNO+MB_ICONINFORMATION) then ShowMessage('Yes');
Boutons:
MB_OK
MB_OKCANCEL
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL
Résultats :
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO
Icônes :
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR
JB
Can I have a sample MVD project.
Thanks!
An example :
Let's say you place a button on a form. This button says : 'Exit? ':
You could display a message asking for confirmation to exit.
Procedure TForm1.ButtonClick(Sender :TObject);
Var rep : word;
Begin
reponse := MessageDLG ( ’VDo you want exit ?’ , mtConfirmation, mbOkCancel, 0) ;
if reponse = mrOK then close ;
end;
JB
Here is a sample project using MessageBox. It's not very sophisticated, but it demonstrates the various options.
Thanks to All!
My Visual Database → General → MessageBox
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi