Fórum Erro na compilação - Função MessageDlgDefault #419327

Bom dia.

UtEstou tentando usar esta função pois trabalho com mais de um idioma.

porém tenho o seguinte erro na compilação: [Error] SIS_MENU_PRINCIPAL.pas(662): Unsatisfied forward or external declaration: TFRMSIS_MENU_PRINCIPAL.MessageDlgDefault

Alguém tem alguma dica?

Sera que eu esqueci de alguma declarar alguma coisa?

Obrigado.

rfbarrozo



function MessageDlgDefault(Msg :String; AType: TMsgDlgType; AButtons : TMsgDlgButtons;
IndiceHelp : LongInt; DefButton : TModalResult=MrNone) : Word;



function MessageDlgDefault(Msg :String; AType: TMsgDlgType; AButtons : TMsgDlgButtons;
IndiceHelp : LongInt; DefButton : TModalResult=MrNone) : Word;
Var
I:Integer;
Mensagem:TForm;
Begin
Mensagem:=CreateMessageDialog(Msg, AType, Abuttons);
Mensagem.HelpConText:=IndiceHelp;
With Mensagem Do
Begin
For i :=0 To ComponentCount -1 Do
Begin
If (Components[i] is TButton) Then
Begin
If (TButton(Components[i]).ModalResult=DefButton) Then
Begin
ActiveControl:=TWincontrol(Components[i]);
End;
End;
End;
If Atype=mtConfirmation Then Caption := Confirmação
else If AType=mtWarning Then Caption := Atenção
else If AType=mtError Then Caption := Erro
else If AType=mtInFormation Then Caption := InFormação;

TButton(Mensagem.FindComponent(YES)).Caption := &Sim;
TButton(Mensagem.FindComponent(NO)).Caption := &Não;
TButton(Mensagem.FindComponent(CANCEL)).Caption := &Cancelar;
TButton(Mensagem.FindComponent(ABORT)).Caption := &Abortar;
TButton(Mensagem.FindComponent(RETRY)).Caption := &Repetir;
TButton(Mensagem.FindComponent(IGNORE)).Caption := &Ignorar;
TButton(Mensagem.FindComponent(ALL)).Caption := &Todos;
TButton(Mensagem.FindComponent(HELP)).Caption := A&juda;
End;
Result:=Mensagem.ShowModal;
Mensagem.Free;
End;