Re: [lazarus] Save on close prompts and ESC key

[Mattias Gaertner]

On Tue, 29 Aug 2006 18:11:48 -0300
Cesar Romero <[EMAIL PROTECTED]> wrote:

> 
> > AFAIK the default and escape button is compatible to Delphi.
> >
> > Can someone check a
> > MessageDlg('','',mtInformation,[mbYes,mbNo,mbAbort],0) under Delphi.
> >   
> 
> Delphi 7:
> 
> //your code
>   MessageDlg('','',mtInformation,[mbYes,mbNo,mbAbort],0)
> [Error] MainForm.pas(182): Incompatible types: 'TMsgDlgType' and
> 'String' [Error] MainForm.pas(182): Incompatible types:
> 'TMsgDlgButtons' and 'TMsgDlgType'
> [Error] MainForm.pas(182): Incompatible types: 'Integer' and 'Set'

:)

 
> //fixed code
>   case MessageDlg('', mtInformation, [mbYes, mbNo, mbAbort], 0) of
>    mrYes: ShowMessage('Yes');
>    mrNo: ShowMessage('No');
>    mrAbort: ShowMessage('Abort');
>   end;
> 
> *ModalResult = mrNo when pressing ESC

Thanks. Fixed.

Mattias

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives