名前
題名
▼ Mr.XRAYさん > >http://mrxray.on.coocan.jp/Delphi/zip/QandA_20190728_Emulate_KeyEvent.zip > >(EXE + ソースコード．説明なし) > > ものはついてですので keybd_event 関数を使用したサンプルを追加しておきました． > ， > > //============================================================================= > // フォーム生成時の処理 > //============================================================================= > procedure TForm1.FormCreate(Sender: TObject); > begin > Memo1.Lines.Text := '日本語 ABC テスト XYZ'; > Memo1.SelStart := 7; > end; > > //============================================================================= > // keybd_event 関数を使用したキー操作のエミュレート > // [Enter] > //============================================================================= > procedure TForm1.SpeedButton1Click(Sender: TObject); > begin > Memo1.SetFocus; > > keybd_event(VK_RETURN, 0, 0, 0); > keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); > end; > > //============================================================================= > // keybd_event 関数を使用したキー操作のエミュレート > // [Shift] + [←] > //============================================================================= > procedure TForm1.SpeedButton2Click(Sender: TObject); > begin > Memo1.SetFocus; > > keybd_event(VK_SHIFT, 0, 0, 0); > keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY, 0); > keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); > keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link