zwischen labels mit buttonklick switchen

[Surge0n]

hi leutz!
wie kann ich durch einen klick auf einen button zwischen labels hin und her switchen?
ich hatte da eine idee..hat aber leider nich funktioniert...
hier mein quelltext:

var
Form1: TForm1;
a:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=1;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//die labelnamen lauten: label1 bis label16
//das vorherige label wird wieder weiß markiert
label[a].color:=clwhtie;
//das aktuell ausgewählte label wird rot markiert
label[a+1].color:=clred;
a:=a+1;
end;


bitte helft mir!
was ist mein fehler?

vielen dank

[DeddyH]

Wie in einem anderen Thread bereits angesprochen ist FindComponent() Dein Freund.

[Jens Hartmann]

Hallo,

probier es mal hiermit..

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Lab1.Font.Color := ClRed;
end;

Gruß Jens

[Surge0n]

vielen dank!ihr seid mir immer eine große hilfe

[Forlan]

Zitat von Surge0n:

vielen dank!ihr seid mir immer eine große hilfe

vllt. könnte die Hilfe dann auch mal sein den Quellcode in Delphi-Tags zu setzen