delphi中单击edit1时，实现复制功能

Question

要实现下面的功能应该怎么写呢？
1.当机器码为空时，单击“计算”按钮，在edit1中显示“机器码不能为空”
2.单击edit2时，实现复制，并在edit2中显示“注册码已复制到剪贴板”

Answer 1

 if trim(edit1.text)='' then
 edit1.text='机器码不能为空'  //复制字符串到剪贴板
  Clipboard.AsText :=edit2.text;

Answer 2

if Trim(Edit1.Text) = '' then //这是判断空
复制到剪贴板还可以这样 
 Edit1.SelectAll;
 Edit1.CopyToClipboard;
从剪贴板取数
Edit1.PasteFromClipboard

Answer 3

复制这样也可以var
  Str: array[0..255] of Char;
begin
  Windows.GetWindowText(Edit1.Handle, str, SizeOf(str) );
end;

Answer 4

第一个问题解决了
2.单击edit2时，实现复制，并在edit2中显示“注册码已复制到剪贴板”这个还不行

Answer 5

procedure TForm1.Edit2Click(Sender: TObject);
begin
   Edit1.SelectAll;
   Edit1.CopyToClipboard;
   edit2.Text:='注册码已复制到剪贴板';
end;

Answer 6

我的意思是：当前单击“计算“按钮时会在edit2中出现计算出来的数字。
当我点击edit2时把计算出来的数字复制，然后edit2中出"注册码已复制到剪贴板"
如：
procedure TForm1.Edit2Click(Sender: TObject);
begin
  Edit2.SelectAll;
  Edit2.CopyToClipboard;
  showmessage('注册码已复制到剪贴板');
end;
end.想把 showmessage('注册码已复制到剪贴板')换为在edit2中显示

Answer 7

procedure TForm1.Edit2Click(Sender: TObject); 
begin 
  Edit2.SelectAll; 
  Edit2.CopyToClipboard; 
  edit2.Text:='注册码已复制到剪贴板'; 
end;