안녕하세요... 저도 초보이지만 제가 아는 것을 가려켜 드리겠습니다.

다음은 예제인거든요 다음을 보면 조금이나마 이해가 가실겁니다

여기에서는 메모에서 일어나는 예제입니다

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);               // 단축키 예제
begin
   if ((ssctrl in Shift) and (Key = Ord('N'))) then
      button1Click(SENDER);

   if Key = VK_F2 then
      Memo1.Text := 'test';
end;

그외의 가상키들을 찾아서 써보세요..

그럼 즐코하세요....

안녕하세요

감사 합니다.. 그런데 제가 아직 초보라서 test를 했는데

button1Click(sender);

에서 계속 에러가 나는데 뭐가 잘못 된건지 모르겠습니다..

죄송하지만 이부분에 대하여 ....

그럼

안냥하세요

button1Click(sender); 이 무엇을 뜻하냐하면요

procedure의 button1Click으로 보낸다는 의미입니다

그래서 다른 procedure와 연결도 가능한것이구요

다음 예제를 함보세요

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);               // 단축키 예제
begin
   if ((ssctrl in Shift) and (Key = Ord('N'))) then
      button1Click(SENDER);

   if Key = VK_F2 then
      Memo1.Text := 'test';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := '나는 나';
end;

위와 같이 하면 메모에서  ctrl + N 키를 누르게 되면 버튼으로 가서

'나는 나' 라는 것을 메모에 적어주게 되는 것입니다

차근 차근 제대로 배우시기 바랍니다...저야 원래 허접이라서...

그럼 즐푸하세여.....

감사합니다.