Forum: Programmieren allgemein
by sniper_w,
11. Jul 2005
@SirThornberry: Und so muss man sich am Ende nicht um alles kümmern...
type
TLabelList=class(TList)
public
procedure BeforeDestruction();override;
procedure ClearLabelList();
end;
//....
Forum: Programmieren allgemein
by sniper_w,
10. Jul 2005
Das:procedure TForm1.Button31Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to form1.ComponentCount - 1 do
begin
if form1.Components.ClassType = TLabel then
begin
if Form1.Components.Name = 'Dyn1' then
ShowMessage('JA');
Forum: Programmieren allgemein
by sniper_w,
10. Jul 2005
Vielleicht ist das falsch:Dyn1:=TLabel.Create(nil)und sollte so aussehen:Dyn1:=TLabel.Create(self{form1})