procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_RETURN then ShowMessage('Ok');

end;



procedure TForm1.Button1Click(Sender: TObject);

var

Key : Word;

begin

Key := VK_RETURN;

Edit1KeyDown(Edit1, Key, []);

end;



라고 하든가.... 아니면,



procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_RETURN then Button1Click(Button1);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage('Ok');

end;



라고 하시면 될 것 같네요...



> 안녕하세요.

>

> 저는 같은 이벤트끼리는 이벤트 연결을 해보았는데,

> 다른 이벤트와는 연결이 안돼서 알고자 합니다.

>

> ex)

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> edit1keydown(sender);

> end;

> 이렇게 하면 연결이 안되네요.

>

> 그래서

> 첫번시도)

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> edit1keydown(Sender: TObject; var Key: Word; Shift: TShiftState);

> end;

>

> 두번째시도)

> procedure TForm1.Button1Click(Sender: TObject);

> var Key: Word; Shift: TShiftState

> begin

> edit1keydown(Sender: TObject; var Key: Word; Shift: TShiftState);

> end;

>

> 기타시도)

> ....많이 했음.

>

> 기본적인 개념이 없다보니, 단순한 것에서도 막히네요.

> 저도 답답합니다. 제대로 배우지 못한것이.... 으 바보야...

>

> 고수님과 저를 아시는 분들의 따뜻한 질책을 기다리겠습니다.

>

> 아시죠. 자세히.... 쉽게.... 유치원생을 가르친다는 마음으로...

> 감사...감사... 그럼 이만...........