求复制的代码是什么啊???(0分)

  • 主题发起人 主题发起人 八戒儿
  • 开始时间 开始时间

八戒儿

Unregistered / Unconfirmed
GUEST, unregistred user!
让他点一个按钮起到Ctrl+C的功能

还有个自动获取系统时间怎么做?
 
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.CopyToClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.PasteFromClipboard;
end;
edit1.Text:=datetostr(now);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.CopyToClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.PasteFromClipboard;
end;
edit1.Text:=datetostr(now);/自动获取系统时间
 
接受答案了.
 
后退
顶部