Buttons in Schleife ansprechen

[Rasmus Weigel]

Hallo!

Problem: (Delphi 3)

Ich habe mehrere Schaltflächen, die zur Laufzeit positioniert und beschriftet werden müssen.(z.B. 10 Schalter mit beschriftung 1 bis 10).

Ist es möglich dieses in einer Schleife zu machen, so daß man nicht jeden Schalter einzeln ansprechen muß?

Z.B.:

For i:=1 to 10 do begin

Schalter(i).caption:=inttostr(i);

end;

- Noch eine Frage:
Gibt es dieses Forum auch auf CD?

Schon mal Danke für die Hilfe

gruß
Rasmus

[Hagen Reddmann]

Hi

<pre>

var
Button: TBitBtn;
I: Integer;
begin
for I := 1 to 10 do
begin
TComponent(Button) := FindComponent(Format('Button%d'));
if Button is TBitBtn then
Button.Caption := IntToStr(I);
end;
end;

</pre>

Die 10 Buttons sollten nun die Namen "Button1", "Button2", ..."Button10" haben.

andere Möglichkeit:

<pre>

type
TForm1 = class(TFrom)
private
FButtons: array[1..10] of TBitBtn;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := Low(FButtons) to High(FButtons) do
TComponent(FButtons[I]) := FindComponent(Format('Button%d', [I]));
end;

procedure TForm1.XYZ();
var
I: Integer;
begin
for I := Low(FButtons) to High(FButtons) do
if FButtons[I] <> nil then
FButtons[I].Caption := IntToStr(I);
end;

</pre>

Gruß Hage

[Rasmus Weigel]

Hallo!

Vielen Dank für die schnelle Hilfe.

gruß
Rasmu