掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ShellExecute()後のフォーカスを取り戻すには (ID:45244)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おそらく横井さんのやりたいこととは違うと思いますが、ご参考までに。 （なお、、、なぜApplication.OnMessageを使っているのか、私には分からないのですが…？？） uses ShellAPI; procedure TForm1.FormCreate(Sender: TObject); begin Self.FormStyle:=fsStayOnTop; Self.KeyPreview:=True; Edit1.Text:='C:\Users\yokoi\Desktop\xxx.JPG'; // サンプル画像 Self.ActiveControl:=Button1; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of Ord('V'): ShellExecute(Self.Handle, 'open', PChar(Trim(Edit1.Text)), nil, nil, SW_SHOWNA); // SW_SHOWNOACTIVATE Ord('Z'): Label1.Caption:=Edit1.Text; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.