Tatsächlich, kleiner Fehler meinerseits.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var Memo: TMemo;
begin
Memo := TMemo.Create(self);
Memo.Parent := Form2;
Memo.Name := 'test';
Memo.Top := 50;
Memo.Left := 50;
Memo.Width := 100;
Memo.Height := 100;
Memo.BringToFront;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with FindComponent('test') as TMemo do
CopyToClipboard;
end;
funktioniert einwandfrei! du hast also irgendwo einen Fehler drin...