Fórum Mensagem com ~coptions do botões personalizados #279719

function Mens_Prov_Dup: String;
var
I:integer;
F:TForm;
begin
F:= CreateMessageDialog(´Deseja Gerar Provisão de Compra ou Títulos a Pagar ?´,
mtconfirmation,[mbyes,mbno]);
try
for i:=0 to F.ComponentCount -1 do
if F.Components[i] is TButton then
with TButton(F.Components[i]) do
case modalresult of
mryes : begin
width := 200;
Left := 80;
Top := 40;
caption := ´&Provisionar Compra´;
end;
mrno : begin
width := 200;
Left := 80;
Top := 70;
caption := ´&Gerar Títulos´;
end;

end;

F.Caption := ´Atenção!!!´;

{É possível, também, alteraro caption da janela}
F.Showmodal;

if F.ModalResult = IdYes then
Result:=´P´;

if F.ModalResult = IdNo then
Result:=´T´;

finally
F.free;
end;
end;


dai vc usa da seguinte forma

case StrToInt(Mens_Prov_Dup) of
1 : begin
Tipo := 1; // sem nota
end;
2 : begin
Tipo := 2; // c/ nota
end;
end;


e assim por diante

Blz, valew!
Mas será que tem como alterar o caption do botão do MessageBox? Sem precisar criar um novo?

a Function MessageBox está em um Dll.
Acredito que os captions dos botoões estejam amarrados no código do programa, não sendo possível, assim, alterá-los.