Dúvida com MessageDlg

Personalize a chamada a

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; DefaultButton: TMsgDlgBtn): TForm;

da uses dialogs

exemplo

unit uMensagemDlgPerson;

interface

function mensagemDlgYesTo(corpo: string): integer;

implementation

uses
Messages,Dialogs,forms , StdCtrls;


function mensagemDlgYesTo(corpo: string): integer;
var
mensagem:TForm;
begin
mensagem := CreateMessageDialog(corpo, mtConfirmation, [mbYes, mbNo],mbNo);
//caso queira mudar o caption dos buttoes
(mensagem.FindComponent(YES) as TButton).Caption := Sim;
(mensagem.FindComponent(NO) as TButton).Caption := Não;
result := mensagem.ShowModal;
end;


de uses a esta unidade e uses


if mensagemDlgYesTo(Mensagem) = Idyes then
showmessage(Blz!!)
else
showmessage(não funcionou);

Desculpe , esqueci da versão sobrecarregada de MessageDlg

A unidade que escrevi anteriormente serve caso voce queira persornalizar algumas opçoes no Form ou nos controles

Porém para dar foco ao Botão especifico , basta utilizar a sobrecarga

if MessageDlg(ola,mtConfirmation,[mbYes,mbNo],0,mbNo) = mrYes then
Showmessage(sim)
else
Showmessage(não);

Obrigado

disponha
[]sds