Einzelnen Beitrag anzeigen

Pfoto

Registriert seit: 26. Aug 2005
Ort: Daun
541 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Labels sollen gleich Aussehen und gleiches Verhalten hab

  Alt 1. Feb 2007, 18:31
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
Jürgen Höfs
Jürgen Höfs / picoly.de
  Mit Zitat antworten Zitat