BorlandTalk.com

Lucio · Guest

In the directory ..sourcevcl there is the file "const.pas"
In this file there are all the label that delphi use for caption,button etc.
Make a copy of this file, change all you need, and add it to your project.

I'm sorry, for my English :-)

"Riccardo Foschia" <riccardo.foschia (AT) meta-level (DOT) de> ha scritto nel messaggio
news:3f1fb29b$1 (AT) newsgroups (DOT) borland.com...

Marco Azevedo · Guest

There is another way to fix that. If your problem is only the MessageDialog buttons caption, you can develop a function encapsulating the MessageDialog.

The following function translate the buttons caption and the Dialog form caption to portuguese, using CreateMessageDialog function:

function Mensagem(const Msg:String; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons): Word;
var
FrmMsg: TForm;
begin
FrmMsg := CreateMessageDialog(Msg,DlgType,Buttons);

case DlgType of
mtError: FrmMsg.Caption := 'Erro';
mtInformation: FrmMsg.Caption := 'Informação';
mtConfirmation: FrmMsg.Caption := 'Confirmação';
mtWarning: FrmMsg.Caption := 'Aviso';
end;

if mbYes in Buttons then TButton(FrmMsg.FindComponent('Yes')).Caption := '&Sim';
if mbNo in Buttons then TButton(FrmMsg.FindComponent('No')).Caption := '&Não';
if mbCancel in Buttons then TButton(FrmMsg.FindComponent('Cancel')).Caption := '&Cancela';

Result := FrmMsg.ShowModal;
end;

The CreateMessageDialog is a Delphi internal function. MessageDialog use it. This way you can set the default button focus as well.

Have fun !

Marco

"Riccardo Foschia" <riccardo.foschia (AT) meta-level (DOT) de> wrote: