Label's and Captions and Macros

Paulo Bergo

Delphi Developer

Tue, 19 Mar 2002 03:00:00 GMT

Label's and Captions and Macros

In my form:
Label1 : Tlabel;
Label2 : Tlabel;
Label3 : Tlabel;
Label4 : Tlabel;
Label5 : Tlabel;
...
How i do to send messagens for a caption propretiers of those labels, with
an while loop, also:

number := 1;
while number<6 do
begin
Label[number].Caption := "... Message...";
number := number + 1;
end;

It's possible?

Thanks!!!!

paulo.be...@jfa.zaz.com.br

Michael Winte

Delphi Developer

Tue, 19 Mar 2002 03:00:00 GMT

Re:Label's and Captions and Macros

Quote

Paulo Bergo wrote:

> In my form:
> Label1 : Tlabel;
> Label2 : Tlabel;
> Label3 : Tlabel;
> Label4 : Tlabel;
> Label5 : Tlabel;
> ...
> How i do to send messagens for a caption propretiers of those labels, with
> an while loop, also:

> number := 1;
> while number<6 do
> begin
> Label[number].Caption := "... Message...";
> number := number + 1;
> end;

> It's possible?

Yeh, it's simple:

(FindComponent('Label'+IntToStr(number)) as TLabel).Caption := 'What you
want';

HTH
-Michael

Other Threads

1. Fast label.caption:='...' updates

2. Label's caption doesn't show

3. Change others application's label caption

4. label.caption doesn't imediately execute

5. Qreport, rotating text, label.caption

6. label.caption + 1 ?

7. Read captions of labels in other programs?

8. TOpenDialog - label and button captions

9. Show a real in a label.caption

10. Label.caption not updating when changed