김경율 wrote:

> edit keydown 이벤트에서 버튼이라든지 그밖으 컴포너트의 event를 동적으로 실행할려면 어떻게 해야 되나요.



WM_KEYDOWN 윈도우 메시지를 보내거나

keybd_event() 를 사용할 수 있습니다



아래는 keybd_event() 을 가지고 작성된 예제입니다

WM_KEYDOWN 은 제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

"Delphi Tip" 에서 WM_KEYDOWN 키워드로 검색해 보세요



// 아래 예제는 Memo1의 내용을 전체 선택하여 맨 마지막행에서

// 붙여넣기하는 일련의 키보드 이벤트를 발생하여 보여주는 예제입니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure PostKeyEx32(key: Word; const shift: TShiftState;

specialkey: Boolean);

type

TShiftKeyInfo = record

shift: Byte;

vkey : Byte;

end;

ByteSet = set of 0..7;

const

shiftkeys: array [1..3] of TShiftKeyInfo =

((shift: Ord(ssCtrl); vkey: VK_CONTROL),

(shift: Ord(ssShift); vkey: VK_SHIFT),

(shift: Ord(ssAlt); vkey: VK_MENU));

var

flag: DWORD;

bShift: ByteSet absolute shift;

i: Integer;

begin

// VirtualKey key down 발생

for i := 1 to 3 do

begin

if shiftkeys[i].shift in bShift then

keybd_event(shiftkeys[i].vkey,

MapVirtualKey(shiftkeys[i].vkey, 0),

0, 0);

end;

if specialkey then

flag := KEYEVENTF_EXTENDEDKEY

else

flag := 0;



// 일반문자 key down 발생

keybd_event(key, MapvirtualKey(key, 0), flag, 0);

flag := flag or KEYEVENTF_KEYUP;

// 일반문자 key up 발생

keybd_event(key, MapvirtualKey(key, 0), flag, 0);



// VirtualKey key up 발생

for i := 3 downto 1 do

begin

if shiftkeys[i].shift in bShift then

keybd_event(shiftkeys[i].vkey,

MapVirtualKey(shiftkeys[i].vkey, 0),

KEYEVENTF_KEYUP, 0);

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Setfocus;

PostKeyEx32(VK_HOME, [ssCtrl], False); {맨 처음으로 이동}

PostKeyEx32(VK_END, [ssCtrl, ssShift], False); {전체 선택}

PostKeyEx32(Ord('C'), [ssCtrl], False); {클립보드로 복사}



PostKeyEx32(VK_END, [ssCtrl], False); {맨 마지막으로 이동}

PostKeyEx32(VK_RETURN, [], False); {CR}

PostKeyEx32(Ord('V'), [ssCtrl], False); {붙여넣기}

end;



end.