Foros Club Delphi - Ver Mensaje Individual

roman · #5 13-01-2006

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