아래의 소스중에 // 부분을 처리하려고 합니다.
어떻게 해야되는지 도져히 모르겠네염..
여기저기 팁을 찾아보니 SHIFT키가 눌렸는지 체크하는건 많이 있는데
SHIFT키와 TAB를 같이 눌리도록 하는것 도져히 못찾겠어어..이렇게
질문을 올립니다..
....
Application.OnMessage := AppMessage;
.....
Procedure TForm1.AppMessage(var Msg: TMSg; Var Handled:Boolean);
begin
if Msg.wParam = VK_ESCAPE THEN
begin
// 요부분에 SHIFT+TAB이 눌린것처럼 처리하려고 합니다.
end;
end;
// Edit 들은 테스트로 그냥 올려놓은 것입니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
end.