Labels sollen gleich Aussehen und gleiches Verhalten haben

[Pfoto]

Hi!

pack doch deine Labels auf ein Panel
und arbeite dies durch:


etwa so:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:= 0 to Panel1.ControlCount-1 do
    If Panel1.Controls[i] is TLabel then
      with Panel1.Controls[i] as TLabel do
      begin
        Caption:= 'Hier die geänderte Caption';
      end;

Hier kannst du ganz gezielt nur die Labels
verändern, die du auf dem Panel platziert hast.

Wenn du es nur mit bestimmten machen willst, könntst
du den .Tag bei den Labels beschreiben und
dann noch eine If-Abfrage einfügen, etwa so:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:= 0 to Panel1.ControlCount-1 do
    If Panel1.Controls[i] is TLabel then
      with Panel1.Controls[i] as TLabel do
      begin
        If Tag = 1 then
          Caption:= 'Hier die geänderte Caption';
      end;

Gruß
Pfoto