Wie kann ich gedrehten Text ausgeben?

Da Delphi das Drehen von Fonts nicht als Funktionalität zur Verfügung stellt, muß man das selbst machen. Das geht folgendermassen (der gewählte Font sollte eine TrueType-Schriftart sein):

var
  lf : TLogFont;
  tf : TFont;

begin
  with Form1.Canvas do begin
    Font.Name := 'Arial';
    Font.Size := 24;
    tf := TFont.Create;
    tf.Assign(Font);
    GetObject(tf.Handle, sizeof(lf), @lf);
    lf.lfEscapement := 450;
    lf.lfOrientation := 450;
    tf.Handle := CreateFontIndirect(lf);
    Font.Assign(tf);
    tf.Free;
    TextOut(20, Height div 2, 'gedrehter Text!');
  end;
end;

siehe auch:

Delphi FAQ