Button mehrzeilig (TFlatButton)

[DeddyH]

Komisch. Ich habe gerade mal Folgendes ausprobiert:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
const sText = 'Erste Zeile'#13#10'Zweite Zeile';
var R: TRect;
begin
  R := Rect(0,
            ClientHeight shr 1 - Canvas.TextHeight(sText),
            Width,
            ClientHeight shr 1 + Canvas.TextHeight(sText));
  DrawText(Canvas.Handle,PChar(sText),-1,R,DT_CENTER);
end;

Geht einwandfrei. Evtl. ist Dein Rect einfach zu klein?