Verständnisfrage: Label

[BigMaster]

Ich habe eine Frage warum er die Caption nicht annimmt?
-----------------------------------------------------------------------------------------
var start: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
start := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Label: TLabel;
begin
start := start + 1;
Label := TLabel.Create(Self);

With Label do
begin
Parent := Form1;
Caption := Edit1.Text; // Hier
Left := 540;
Top := 20 + 5*(start);
Width:= 200;
Height:= 20;
Name := 'Label'+IntToStr(start);
Transparent := true;
end;
end;

[DeddyH]

Hallo und Willkommen in der DP ,

lass doch mal das with weg und benenne die Variable Label um. Übrigens: benutze doch bitte künftig Delphi-Tags, die kannst Du mit der "Helm"-Schaltfläche im Beitragseditor setzen.

[divBy0]

Gerade getestet, bei mir nimmt er die Caption.

Der Name Label ist außerdem ungünstig, wie DeddyH schon geschrieben hat.

[uligerhardt]

Zitat von divBy0:

Der Name Label ist außerdem ungünstig, wie DeddyH schon geschrieben hat.

Und zwar, weil label ein (kaum verwendetes) Pascal-Schlüsselwort ist, wie auch das Syntay-Highlighting verrät:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Label: TLabel;
begin
end;

[DeddyH]

Das mag auch der Compiler nicht und weigert sich (zumindest in meinem D7).

[p80286]

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?
Oder ist das gibt es da irgendwelche Nebeneffekte?
Edith:
da das .Free fehlt sollte doch ein schönes Memory Leak da sein?

Gruß
K-H

[mkinzler]

Zitat:

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?

Jein. Man kann nicht mehr direkt darauf zugreifen, existieren tun die Instanzen aber noch ( man kann sie auch über die Form wieder referenzieren)

[uligerhardt]

Zitat von p80286:

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?
Oder ist das gibt es da irgendwelche Nebeneffekte?
Edith:
da das .Free fehlt sollte doch ein schönes Memory Leak da sein?

Nö: Mit TLabel.Create wird eine Objektinstanz auf dem Heap angelegt. Die Variable Label ist nur eine Referenz darauf, die darf ruhig aus dem Scope fallen. Die Label-Instanz ist trotzdem noch "bekannt" und zwar bei Form1 - sogar zweimal, da Form1 Owner und Parent ist.

[DeddyH]

Und freigegeben werden sie vom Owner, das passt schon.