FindComponent

This topic has 1 reply, 2 voices, and was last updated 10 years, 11 months ago by CheshireCat.

Viewing 1 post (of 1 total)

Author

Posts
June 6, 2014 at 12:18 pm #51975

CheshireCat
Participant

Hello,

you mean something like that?

Code:

procedure TForm1.sButton1Click(Sender: TObject);
var
i : integer;
begin

for i := 1 to 4 do
if FindComponent('sLabelFX' + IntToStr(i)) is TsLabelFX then
with FindComponent('sLabelFX' + IntToStr(i)) as TsLabelFX do
Caption := 'My Label ' + IntToStr(i);

end;
Author

Posts

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.