hi...
so banal es klingen mag aber ich schaffe es nicht die schriftfarbe eines simplen buttons zu ändern...XD
ja eigentlich kann ich das und ja ich hab suche benutzt und nein es funktioniert net so...^^
hier mal der code muss also daran liegen...^^
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.SetMyIcon(BTN_Name: TButton);
begin
if BTN_Name.Caption = '' then
begin
if Player = TRUE then
begin
BTN_Name.Font.Color := clLime;
BTN_Name.Caption := 'X';
BTN_Name.Tag := 1;
Runde := Runde + 1;
end;
if Player = False then
begin
BTN_Name.Font.Color := clRed;
BTN_Name.Caption := 'O';
BTN_Name.Tag := 0;
Runde := Runde + 1;
end;
Player := not Player;
end;
end; |
danke schonmal für alle antworten...
glaub ich habs heut nicht so...^^
Stinger47
