Autor Beitrag
whitef
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 202
Erhaltene Danke: 1

Windows X
Delphi XE X
BeitragVerfasst: Fr 02.02.07 23:41 
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... :D

hier mal ein auszug:
ausblenden 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;
GTA-Place
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
EE-Regisseur
Beiträge: 5248
Erhaltene Danke: 2

WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
BeitragVerfasst: Fr 02.02.07 23:54 
Bei IF = statts := verwenden.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
whitef Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 202
Erhaltene Danke: 1

Windows X
Delphi XE X
BeitragVerfasst: Sa 03.02.07 00:14 
sorry aber damit kann ich leider nichts anfangen, bin noch delphi neuling...
könnte es etwas genauer gehen? :roll:
JayEff
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2971

Windows Vista Ultimate
D7 Enterprise
BeitragVerfasst: Sa 03.02.07 00:22 
user profile iconwhitef hat folgendes geschrieben:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
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;

und den Crashkurs von Christian will ich dir gern wärmstens ans Herz legen :) einfach mal Suche in: Delphi-Forum, Delphi-Library CRASHKURS

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
whitef Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 202
Erhaltene Danke: 1

Windows X
Delphi XE X
BeitragVerfasst: Sa 03.02.07 00:30 
alles klar jungs... eindeutig, bin zu müde... das ":" war zuviel... ich glaue ich erstmal schlafen... bis morgen dann ;)


:CLOSED: