dein ButtonClick in der SubUnit müsste so aussehen:
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
begin
testen.Refresh;
testen.Repaint;
end;
edit:: ahh ich verstehe^^
versuchs so:
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
begin
listboxsub.Items.Assign(testen.Items);
end;