Moin Forum,
ich kann bei einem zur Laufzeit erzeugten TPanel die Farbe nicht ändern.
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
| var
Form4 :TForm4;
Station1 :TPanel;
implementation
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
begin
Station1 := TPanel.Create(Form4);
with Station1 do begin
Name := 'Irgendwas';
Parent := Form4;
Top := 54;
Left := 86;
Height := 100;
Width := 45;
end;
end;
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Station1.Free;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
Station1.Color := clLime;
Form4.Color := clYellow;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Station1.Color := clRed;
end;
end. |
Wenn ich Button1 drücke, ändert sich die Farbe vom Formular UND meinem Panel.
Wenn ich Button2 drücke, sollte mein Panel sich ja eigentlich rot färben, es passiert aber nichts.
Was habe ich denn hier übersehen? Sehe ich den Wald vor lauter Bäumen nicht?
Gruß Oliver
Windows XP: Für die einen nur ein Betriebssystem - für die anderen der längste Virus der Welt...
