hi,
ich hab mal wieder ein problem mit einem if befehl, der überprüft ob ein text (in meinem fall der text eines buttons) fett geschrieben ist oder nicht. wenn nicht soll er fett geschrieben werden... dafür IF
Es funktioniert einfach nichts... ich geh noch kaputt...
hier mal ein auszug:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| procedure TFormHilfe.Button3Click(Sender: TObject); begin if Button3.font.Style := [fsBold] then begin Button3.font.Style := [] end else begin Button3.font.Style := [fsBold] end; end; |