Buscar por:

Criando uma caixa de mensagem personalizada

Código

function mensagem(Texto: string; Botao: TMsgDlgButtons = [mbOk]; Rotulo:String = 'Atenção'; Icon : TMsgDlgType = mtWarning): integer;

var

  wl_mensagem: TForm;

begin

  wl_Mensagem := CreateMessageDialog(Texto, Icon, Botao);

  (wl_mensagem.FindComponent('YES') as TButton).Caption := '&Sim';

  (wl_mensagem.FindComponent('NO') as TButton).Caption  := '&Não';

  (wl_mensagem.FindComponent('OK') as TButton).Caption  := '&Ok';

  (wl_mensagem.FindComponent('CANCEL') as TButton).Caption  := '&Cancela';

  wl_mensagem.Color := clBtnFace;

  wl_mensagem.BorderStyle := bsSingle;

  wl_mensagem.BorderIcons := [];

  wl_mensagem.Caption := Rotulo;

  result := wl_mensagem.ShowModal;

end;