请问如何把我edit.text的文字内容输入到打开的记事本或是任何可以输入文字的地方啊
说明:当时鼠标光标已在这些要输入的地方上了
[解决办法]
方法一：剪贴板 + Timer
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ClipBoard.Clear;
ClipBoard.AsText := Edit1.Text;
Timer1.Interval := 3000; //三秒内点击粘贴位置，使之获得焦点
Timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord( 'V '), MapVirtualKey(Ord( 'V '), 0), 0, 0);
keybd_event(Ord( 'V '), MapVirtualKey(Ord( 'V '), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
Timer1.Enabled := false;
end;
方法二：查找句柄 + SendMessage
