Mensajes en español??

[samame]

Hola a todos, quisiera saber como puedo hacer para poder configurar los botones que aparecen en el MessageDlg. Me gustaría que saliera en español, y no el OK y Cancel.

Lo cual me hace recordar otra duda.

Como puedo traducir componentes??
Tengo instalado el Delphi 7 con las 1st Class 4000 y las InfoPower 4000.
Creo que si abro el .dpk, y me fijo en los .pas y .dfm que usa, podría traducirlos y luego recompilar los .dpk?? Conseguiría así mi propósito??

Muchas gracias de antemano.

[Neftali [Germán.Estévez]]

Empezado por samame

...quisiera saber como puedo hacer para poder configurar los botones que aparecen en el MessageDlg. Me gustaría que saliera en español, y no el OK y Cancel.

Puedes hacerlo utilizando la API MessageBoxIndirect; Si buscas en Internet seguro que encuentras ejemplos de cómo utilizarla. Aquí tienes una muestra sencilla (programa un botón con el siguiente código):

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 
   procedure QuickestShow( const cText: string );
   var
     MsgParam: TMsgBoxParams;
   begin
     MsgParam.cbSize := SizeOf( TMsgBoxParams );
     with MsgParam do
     begin
       hwndOwner := 0;
       hInstance := MainInstance;
       lpszText := PChar( cText );
       lpszCaption := 'Blocking sockets server test';  // TITULO
       dwStyle := 0;   // BOTONES
       lpszIcon := nil;    // ICONO
       dwContextHelpID := 0;
       lpfnMsgBoxCallback := nil;
       dwLanguageID := 0;
     end;
     MessageBoxIndirect( MsgParam );
   end;
 
 begin
   QuickestShow('Hola que tal...');
 end;

Empezado por samame

Como puedo traducir componentes??
Tengo instalado el Delphi 7 con las 1st Class 4000 y las InfoPower 4000.
Creo que si abro el .dpk, y me fijo en los .pas y .dfm que usa, podría traducirlos y luego recompilar los .dpk??
Conseguiría así mi propósito??

Esa es exactamente la forma estandard de hacerlo, es más, es que no hay otra. Dependiendo de los componentes que quiereas traducir la cosa será más sencilla o más complicada, pero la forma es esa; Componentes comerciales un poco serios (por norma general) suelen traer todas las constantes a traducir en una o varias units, de forma que la cosa se hace más sencilla.

[Delfino]

Puedes usar Application.MessageBox(...) y los botones apareceran segun el locale del sistema operativo..