TShape zur Laufzeit erzeugen - Verständnisproblem

[axellang]

Hallo Leute,

könnte mir bitte jemand sagen warum dass nicht funktioniert:

Delphi-Quellcode:

procedure TForm1.Shape_2;
var
    dummy_2 : TShape;
begin
     dummy_2 := TShape.Create(Self);

   try
     dummy_2.Shape := stCircle;
     dummy_2.Parent := Panel1;
     dummy_2.Width := 30;
     dummy_2.Height := 30;
     dummy_2.Top := 69;
     dummy_2.Left := 69;
     dummy_2.Brush.Color := clBlack;
     dummy_2.Pen.Color := clCream;
     dummy_2.Show;
   finally
    dummy_2.free;
   end;
end;

Aber das wohl funktioniert:

Delphi-Quellcode:

procedure TForm1.Shape_1;
var
   i : Integer;
     dummy : TShape;
begin
    for i:= 0 to 1 do
       begin
        dummy := TShape.Create(Self);
        dummy.Shape := stCircle;
        dummy.Parent := Panel1;
        dummy.Width := 30;
        dummy.Height := 30;
        dummy.Top := 69;
        dummy.Left := 69;
        dummy.Brush.Color := clBlack;
        dummy.Pen.Color := clCream;
        dummy.Show;
      end;

    dummy.Free;
  end;

Gruß
Alexander

[bernau]

Zitat:

Zitat von axellang

könnte mir bitte jemand sagen warum dass nicht funktioniert:

Beim ersten mal erzeugst du das Shape und gibst es sofort wieder frei. Damit ist es nicht zu sehen, weil's nicht mehr da ist.

Beim zweiten mal hast du eine Schleife, in dem du zwei mal ein Shape erzeugst. Das Zweite wird mit free sofort wieder entfernt. Damit hast du noch eines, welches sichtbar ist.


Gerd

[axellang]

Tss, Tss, Tss :wall:

Danke.

Sollte doch wohl für heute aufhören.

Axel