Jump to content
Fórum Script Brasil
  • 0

Messagedlg - Overload


...fabinho
 Share

Question

Moçada, gostaria de usar outros tipos de Messagedlg. Como está disponível no help do Delphi 7, quero usar como segue a sintaxe:

function MessageDlg(const Caption: WideString; const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

ficaria assim, por exemplo:

Messagedlg('Exclusão de arquivo', 'Confirma a exclusão?', mtConfirmation, [mbYes, mbNo], 0, mbNo, imagem) = mryes then .....

Mas acontece que o Delphi critica.. como se essa função somente pudesse ser usada com os parâmetros padrão, aqueles que todo mundo conhece.

Alguém ajuda? grato.

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0
Mas acontece que o Delphi critica.. como se essa função somente pudesse ser usada com os parâmetros padrão, aqueles que todo mundo conhece.

Isto é improvável. Coloque a mensagem de erro na íntegra (original, não sua interpretação) para que possamos dar alguma opnião.

Link to comment
Share on other sites

  • 0
Guest --fabinho --
Mas acontece que o Delphi critica.. como se essa função somente pudesse ser usada com os parâmetros padrão, aqueles que todo mundo conhece.

Isto é improvável. Coloque a mensagem de erro na íntegra (original, não sua interpretação) para que possamos dar alguma opnião.

A mensagem de erro é:

"Too many actual parameters"

Link to comment
Share on other sites

  • 0
Guest --felipe --
A mensagem de erro é:

"Too many actual parameters"

segundo o help do deplhi:

function MessageDlg(const Caption: WideString; const Msg: WideString; DlgType: TMsgDlgType

; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

Messagedlg('Exclusão de arquivo', 'Confirma a exclusão?', mtConfirmation, [mbYes, mbNo], 0, mbNo, imagem) = mryes then .....

Caption specifies the caption for the message box when DlgType is mtCustom. If this parameter is not used, the caption for custom message boxes is the title of the application.
ou seja, você não pode usar o parametro "const Caption" a menos que o parametro "DlgType" seja mtCustom.

Bitmap is an image that appears on the face of the message dialog. If Bitmap is nil (Delphi) or NULL (C++), there is no image unless DlgType is mtConfirmation.

ou seja, você não pode usar o parametro "Bitmap" a menos que o parametro "DlgType" seja mtConfirmation..

finalmente: ou você usa o mtCustom e especifica o parametro "Caption", ou você usa mtConfirmation e especifica o parametro "Bitmap"..

mesmo assim eu tava testando e não funcionou.. o erro é o mesmo

então criei uma variavel WideString, já que -> const Msg: WideString; e não funcionou também

tentei usar o exemplo do delphi:

if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then exit;

e o erro continua! :angry:

acho que pra usar MessageDlg do tipo overload deve ser diferente, ou tem que declarar algo em uses, não sei..

abraços

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...