StatusBar de dos lineas

[Chente(rMan)]

Y pro pura curiosidad, ¿que es lo que deseas poner en esas dos lienas?


Saludos.

[roman]

Así nada más, creo que no se puede, pero poniendo Style = psOwnerDraw al panel del StatusBar donde queremos texto en varias líneas, es fácil lograrlo con el evento OnDrawPanel del StatusBar:

Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var
  R: TRect;

begin
  R := Rect;
  DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, R, 0);
end;

Si Panel.Text tiene #13#10, aparecerá en varias líneas.

// Saludos

[dec]

Hola,

Empezado por mi mismo conmigo mismo

Tal vez deberías plantearte el uso de otro control para lo que quieres hacer. ¿No?

Pues va a ser que no, porque Román estuvo ahí para evitarlo.