Ver Mensaje Individual
  #2  
Antiguo 21-02-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.310
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
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;

Cita:
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita