¿Es posible cambiar el tamaño de las fuentes en un InputBox o ShowMessage?

[rrf]

Hola a tod@s.

Suelo usar ShowMessage, pero el tamaño de las letras que aparecen se ve tan pequeño que me desanimo de utilizarlo, puesto que las letras se ven muy pequeñas y, si se usara en un portátil de los de 7 a 10 pulgadas de pantallas, sería muy difícil leer el texto.

Un poco de lo mismo para InputBox.

¿Hay alguna forma de modificar el tamaño de las letras?.

Uso Delphi 5 Pro.

De antemano, gracias por tu atención.

Ramón.

[[enecumene]]

Hola, con un messageDlg:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 f: TForm;
begin

 f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, dialogs.mbOKCancel);
 f.Color := clYellow;
 f.Font.Color := clBlue;

 if f.ShowModal = mrOk
   then ShowMessage('Se presionó OK')
   else ShowMessage('Se presionó Cancel');

end;

Saludos.

[rrf]

enecumene, muchas gracias por el código y por tu rapidez en contestar.

Lo he probado y resuelve lo que preguntaba con el ImputBox.

Sin embargo, los ShowMessage se siguen viendo igual (de tamaño). No se si se me escapa algo...

De nuevo gracias.

Ramón.

[[enecumene]]

No amigo, te puse un código de ejemplo, es para que uses los MessageDlg en vez de los ShowMessage. Olvídate de esos últimos.

Saludos.

[rrf]

enecumene.

He comprobado tu código y me va bien en cuanto a manejar las fuentes y el color; pero no he podido hacer que solo aparezca un botón en la ventana con el texto.

¿Se puede poner solo 1 botón (como con los ShowMessage)?.

Gracias de antemano y un saludo.

Ramón.

[[enecumene]]

Pues claro amigo, sólo cambia esta parte:

Código Delphi [-]
f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, dialogs.mbOKCancel);

por

Código Delphi [-]
f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, dialogs.mbOK);

Saludos.

[[Héctor Randolph]]

Prueba con esto:

Código Delphi [-]
 f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, [dialogs.mbOk]);

Saludos

[rrf]

Gracias enecumene y Héctor.

Ya había intentado el código que me ofrecías, enecumene; pero sin meterlo entre corchetes y me daba error (supongo que pudo ser por ser Delphi 5) y, con la sugerencia de Héctor funciona bien; con lo que ya tengo solucionada completamente la consulta que hice.

De nuevo gracias.

Ramón.

[[enecumene]]

El código está probado en Delphi7, es posible que sea la versión, bueno, me alegro que te sirviera.

Saludos.