八 八戒儿 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-16 #1 让他点一个按钮起到Ctrl+C的功能 还有个自动获取系统时间怎么做?
Q qwerty_417 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-17 #2 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);
Q qwerty_417 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-17 #3 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);/自动获取系统时间