Beschriftung BitBtn vertikal

[Tommy111]

Hi,
hab mal wieder en kleines Problem.
Hab auf meinem Formular einen BitBtn platziert. Um Platz zu sparen, hab ich den in der Größe 25 X 193 angelegt, d.h. er is Höher als Breit! Aus diesem Grund wollte ich jetz die Beschriftung (Caption)des BitBtn vertikal machen.
Beispiel:
normale Beschriftung: STOP
mein Versuch:
S
T
O
P

Hab im Objektinspektor nichts gefunden, wo man sowas einstellen kann!
Hat jeman von euch ne Lösung? Komm einfach net weiter!

Glaub, ich geh jetz mal en Bierchen trinken. Vielleicht klappts dann besser!

[sniper_w]

Wenn es unbedingt BitBtn sein muss, dann muss du selber eine neue Klasse von TBitBtn ableiten und dann entsprechend das Verhalten definieren. Würde ich raten, dass du nur Paint Procedure neudefinieren musst.

[Tommy111]

Muß nicht unbedingt ein BitBtn sein! Kann auch ein anderer sein!
Der ist ja eigendlich nur dafür gedacht, um das Programm zu beenden!

[shmia]

Zitat von Tommy111:

Hab auf meinem Formular einen BitBtn platziert. Um Platz zu sparen, hab ich den in der Größe 25 X 193 angelegt, d.h. er is Höher als Breit! Aus diesem Grund wollte ich jetz die Beschriftung (Caption)des BitBtn vertikal machen.
Beispiel:
normale Beschriftung: STOP

Lass doch die Caption einfach weg und zeichne dir ein Bitmap, dass sowohl ein Stopzeichen als auch den senkrechten Text enthält.

[chrisw]

Versuch mal BitBtn1.Caption := 'S' + #10 + 'T' + #10 +'O' + #10 +'P';

[runger]

Hallo,

zum letzten Beitrag:
So geht das leider nicht! Leite eine eigene Komponente ab. Überschreib die paint routine. Fertig

Rainer

[chrisw]

Sicher geht das !!
Sogar sehr gut !!

[sniper_w]

chrisw hat 100% recht. Ist aber die einfachste Lösung....die beste auch

[Chegga]

Zitat von runger:

Hallo,

zum letzten Beitrag:
So geht das leider nicht!

Aus welchem Grund sollte das nicht gehen?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BitBtn1.Caption := 'S' + #10 + 'T' + #10 +'O' + #10 +'P';
end;

Fertig!

(Wenn du 'S' + #10 + 'T' + #10 +'O' + #10 +'P' bei Caption im OI eintippst,
ist mir auch klar, dass es nicht geht. )

MfG Marc

[Tommy111]

Zitat:

Versuch mal BitBtn1.Caption := 'S' + #10 + 'T' + #10 +'O' + #10 +'P';

Hat Funktioniert! Danke!