[delphi] Hoe TFontStyle aan te roepen?!

[Flipmo2K]

Ik moet voor school een programma maken. Er zitten 3 knoppen op, 1 voor Bold, 1 voor Underline en 1 voor Italic. Er zit ook nog een Memo Object op het formulier.
Nu is het de bedoeling dat als je aan het typen bent in het Memo Object en je drukt op de knop Bold, dat dan de hele tekst ineens vetgedrukt wordt.
Maar ik weet niet hoe ik dit aan moet roepen...

Ik heb al iets geprobeerd (onder het ClickEvent van de Bold-knop) van:

type TFontStyle = (fsBold, fsItalic, fsUnderline);

begin
If SpeedButtonBold.Down = True then
MemoKladBlok.Font.Style := TFontStyle(fsBold);


==========
Ik weet dat dat TFontStyle niet helemaal goed is, ik heb ook al verschillende varianten geprobeerd (Font.Style enzo, ik weet niet of dat ook echt wat is maja, je moet wat als je hopeloos bent) maar ik kom er echt niet uit. En van de help wordt ik ook al niet wijzer...

BTW, ik gebruik Delphi 5.0 Enterprise en m'n klasgenoten weten 't ook niet.

[Jelmer]

Druk eens een keer op f1, daar kun je erg nuttige info vinden

Memo1.Font.Style := [fsBold];

[kvdveer]

even een klein extra hintje: zoek in de help bij set. De fontstyle porperty is namelijk een set... Dan heb je gelijk weer wat geleerd...

[wizl]

En wat helemaal mooi is . . . .

Zet ff. 3 speedbutton's op je formpje. Op de buttons zet je als caption resp. B, U en I.
Je hangt dan aan de drie buttons dezelfde OnClick event, met daarin:

Memo1.Font.Style := (Sender as TSpeedButton).Font.Style;

Daar kicken ze op school altijd wel op, dit soort constructies

Oh ja, en nog iets. Je kunt gewoon zeggen:
if SpeedButton.Down then
dat leest een stuk prettiger (vind ik dan )

offtopic:
Van wie heb je les? Bert van Gestel ?

[Verwijderd]

Volgens mij kun je beter

Memo1.Font.Style := Memo1.Font.Style + [fsBold];

of iets dergelijks ervan maken, een tekst moet toch zowel cursief als vet kunnen zijn? Vergeef me als de syntax niet helemaal klopt, ik ben pas kort geleden begonnen met delphi.

[wizl]

Okay, dan. Gaan we het helemaal voorkauwen zodat de boys een dikke vette negen in de wacht gaan slepen

if (Sender as TSpeedButton).Down then
Memo1.Font.Style := Memo1.Font.Style + (Sender as TSpeedButton).Font.Style
else
Memo1.Font.Style := Memo1.Font.Style - (Sender as TSpeedButton).Font.Style

Je moet wel de groupindex van de SpeedButtons op resp. 1, 2 en 3 zetten. En de property AllowAllUp van de 3 SpeedButtons op True.

offtopic:
Doe Bert de groeten

[Flipmo2K]

Ik ben pas 3e-weeks "student", dus zoveel weet ik d'r niet van! Maar jullie hebben me geweldig geholpen, het werkt nu allemaal fatsoenlijk!

Maarre... WTF is Bert van Gestel? Zit die ook op Fontys Eindhoven?

[wizl]

Bert geeft discrete wiskunde en programmeren op Fontys (heb ik i.i.g. van 'em gehad)

[Flipmo2K]

Hehe, gister meteen de les nadat ik die reactie had gepost (van WTF is Bert v. Gestel?) begon onze GB1 leraar ook over ene Dhr. Van Gestel bij ons op school... toeval of wat?!