cambiar color a messageBox

[reina]

Bueno a ver si me ayudan..necesito poner el color de las pantallas de mi aplicación a las cajas de mensajes..quisiera saber si hay algun modo de indicarle el color..parece una tontera pero ..es lo que piden
saludos y tkss!

LA PATRIA SERA LIBRE

[jmariano]

A las cajas de mensajes generadas por las funciones del API de Windows, como MessageBox, que yo sepa, es imposible cambiarles el color (toman el color y apariencia según esté configurado en el sistema por el usuario). Lo que si podrías hacer es crearte tus propias cajas de mensajes (derivando de la clase TForm ) y especificarles el color a través de la propiedad Color.

Saludos!

[reina]

si! tks..ahi lei recien que agarra esa funcion de la api..imposible cambiarle el color..pero bueno nunca se sabe..je. tks por tu recomendacion..voy a mandar el circuito de alarmas a un form creado por mi..en fin
saludoss

LA PATRIA SERA LIBRE

[[Héctor Randolph]]

Bueno, tal vez en MessageBox no sea posible, pero antes de crear una nueva función para mostrar los mensajes yo consideraría el truco que nos dió Román en este hilo.

http://www.clubdelphi.com/foros/showthread.php?t=29265

Como dice jmariano, puedes implementar una función que cambie el color de las cajas derivando de TForm, para esto podría ser util la función CreateMessageDialog.

Saludos

[RicardoNavarro]

Espero sirva

Código Delphi [-]
function MiMensaje(XTexto, XTitulo: String): Boolean;
var
  LForm: TForm;
  CaptionIndex, i: integer;
  LNombres: array of string;
  LFondo, LColor: TColor;
  LICono: TMsgDlgType;
  LBotones: TMsgDlgButtons;
begin
  LFondo := clGreen;
  LColor := clWhite;
  LIcono := mtInformation;
  LBotones := [mbOK];
  SetLength(LNombres, 1);
  LNombres[0] := '&Cerrar';
  if XTitulo = 'Cuidado' then
    begin
      LFondo := clYellow;
      LColor := clBlack;
      LIcono := mtConfirmation;
      LBotones := [mbYes,mbNo];
      SetLength(LNombres, 1);
      LNombres[0] := '&Si';
    end
  else if XTitulo = 'Peligro' then
    begin
      LFondo := clRed;
      LColor := clYellow;
      LIcono := mtWarning;
      LBotones := [mbYes,mbNo,mbAbort];
      SetLength(LNombres, 3);
      LNombres[0] := '&Si';
      LNombres[1] := '&No';
      LNombres[2] := '&Cerrar';
    end;
  LForm := CreateMessageDialog(XTexto, LIcono, LBotones);
  LForm.Caption := XTitulo;
  LForm.Color := LFondo;
  LForm.BorderIcons := [];
  CaptionIndex := 0;
  for i := 0 to LForm.ComponentCount - 1 do
    begin
      if (LForm.Components[i] is TLabel) then
        begin
          TLabel(LForm.Components[i]).Font.Style := [fsBold];
          TLabel(LForm.Components[i]).Font.Color := LColor;
          TLabel(LForm.Components[i]).Font.Size := 12;
        end;
      if (LForm.Components[i] is TButton) then
        begin
          if CaptionIndex > High(LNombres) then
            Break;
          TButton(LForm.Components[i]).Caption := LNombres[CaptionIndex];
          Inc(CaptionIndex);
        end;
    end;
  with LForm do
    begin
      try
        ShowModal;
      finally
        Free;
      end;
    end;
  if LForm.ModalResult = mrYes then
    Result := True
  else
    Result := False;
end;