Работа со ShowMessage( ), MessageDlg( )  и со MessageDlgPos( ) функции

Со овие функции се прави комуникација со корисникот поточно тој се известува за некоја направена
активност . Со ShowMessage( ) само се пушта порака , со MessageDlg( ) се пушта дијалог во кој се
известува корисникот за типот на пораката (Упозорение, Грешка, Информација, Потврдување) и со
MessageDlgPos( ) се активира дијалог на сакана позиција.
  Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.
Се поставува една компонента  Button1  од палетата со компоненти Standard,  

Потоа на двоен клик на копчето се поставува следниот код со претходно пријавена променлива 
    (пред Begin): var kopce : Integer;     (после  Begin) kopce := MessageDlg('Izvestuvanje', mtError ,   mbOKCancel  , 0);
if kopce = mrOK then ShowMessage('Pritisna OK ');
if kopce = mrCancel then ShowMessage('Pritisna Cancel ');
Објаснение:

mtWarning	Прикажува предупредување
mtError	Прикажува црвено  'X'
mtInformation	Прикажува црвено 'i'
mtConfirmation	Прикажува прашалник
mtCustom	Прикажува порака

 

mbYes	Прикажува 'Yes' копче
mbNo	Прикажува 'No'  копче
mbOK	Прикажува 'OK'  копче
mbCancel	Прикажува 'Cancel' копче
mbAbort	Прикажува 'Abort' копче
mbRetry	Прикажува 'Retry' копче
mbIgnore	Прикажува 'Ignore' копче
mbAll	Прикажува 'All' копче
mbNoToAll	Прикажува 'No to all' копче
mbYesToAll	Прикажува 'Yes to all' копче
mbHelp	Прикажува 'Help' копче

На двоен клик на копчето може да се поставуви и следниот код со претходно пријавена променлива:    (пред Begin): var kopce : Integer;     (после  Begin) kopce := MessageDlgPos(' Moj dialog ',mtCustom, [mbYes,mbAll,mbCancel], 0, 100, 100);
if kopce = mrYes then ShowMessage(' Pritisnavte Yes ');
if kopce = mrAll then ShowMessage('Pritisnavte All ');
if kopce = mrCancel then ShowMessage(' Pritisnavte Cancel ');