Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Mär 2009
Die Markierten Panels sollen auf OnClick Schwarz werden bzw. wenn schon aktiviert wieder Grau
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Mär 2009
Procedure TEditor.PanelClick(Sender: TObject);
Begin
with Sender as TPanel do
begin
case Tag of
2..10,12..20,22..30:
Begin
if TPanel(FindComponent('Panel' + InttoStr(Tag))).Color = clBtnFace then
TPanel(FindComponent('Panel' + InttoStr(Tag))).Color := clBlack
else
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Mär 2009
hat sich erledigt
procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
For I := 2 to 10 do
Begin
TPanel(FindComponent('Panel' + IntToStr(I))).Color := clBlack;
End;
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Mär 2009
Versuche das grad so was zu einer Exeption führt
procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
For I := 2 to 10 do
Begin
TPanel(I).Color := CLBlack;
End;