Button + Edit Feld - zur Laufzeit entfernen?

[bitsetter]

Man könnte den Tag vom TBitBtn benutzen, dazu müsste man den vorigen Code noch etwas anpassen.

Delphi-Quellcode:

var
  Edt: TEdit;
begin
  inc(i);

  Edt:= TEdit.Create(self);
  with Edt do
  begin
     Parent:= Self;
     Name:= 'Edit'+IntToStr(i);
     Left:= 8;
     Top:= 6 + i * 25;
     Width:= 233;
  end;

  with TBitBtn.Create(self) do
  begin
     Parent:= Self;
     Name:= 'BitBtn'+IntToStr(i);
     Caption:= '>';
     Left:= 243;
     Top:= Edt.Top;
     Width:= 22;
     Height:= 22;
     Tag:= cardinal(Edt);//<--
     OnClick:=ButtonClick;
  end;

Dann auslesen:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender is TBitBtn then
    Showmessage(TEdit(TBitBtn(Sender).Tag).Text);
end;