Toolbutton Down wie in MS Word (Fett, Kursiv, Unterstrichen)

MisterBum83 · Beiträge: 245 Erhaltene Danke: 2 WIN XP Delphi 6

Hallo,
ich möchte 3 Toolbuttons machen wie in Word für Fett, Kursiv und Unterstrichen.
Nun meine Frage: Wie schaffe ich es, das die Button eingedrückt sind und in diesem Zustand bleiben, bis der Benutzer wieder drauf klickt?

Vielen Dank für eure Hilfe...
MisterBum

jasocul · Verfasst: Di 19.07.05 11:39

Du musst die Eigenschaft AllowAllUp auf true setzen für die Button-Gruppe.
Und der Style muss tbsCheck sein.

Theoretisch sollte es dann funktionieren.

MisterBum · Beiträge: 107

Leider funzt das nicht.
Hier mein Quellcode:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if ToolButton20.Down then
    CurrText.Style := CurrText.Style + [fsBold]
  else
    CurrText.Style := CurrText.Style - [fsBold];

Die Eigenschaft AllAlowUp ist auf true und bei Style ist tbsCheck eingestellt. Wenn beim OnClick-Erreignis der obige Quellcode aufgerufen wird, passiert nix. Weder der Text Fett gemacht, noch der Button ist eingedrückt...

Moderiert von matze: Code- durch Delphi-Tags ersetzt.

jasocul · Verfasst: Di 19.07.05 14:22

Wenn ich dir jetzt schreibe, dass das bei mir funktioniert, nützt dir das wohl auch nicht viel.
Ich habe das sogar jetzt getestet. AllowAllUp muss nichtmal gesetzt sein.

Setzt du die Button evtl. noch im Programm irgendwie?

MisterBum · Beiträge: 107

Jetzt weiss ich woran es liegt. Ich habe den Befehl

markieren

Delphi-Quelltext

1:	{$R WinXPStyle.res}

eingebunden, damit der WindowsXP-Stil zum vorschein kommt. Ohne das funzt es. Was könnte ich da machen, wenn ich den XP-Stil behalten will?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme