onclick过程中要调用一个控件的keydown?how to do

??
thanks

解决方案 »

  1.   

    在onclick的地方引用要用的keydown事件
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      edit1.SetFocus ;
      keybd_event(65,0,KEYEVENTF_EXTENDEDKEY,0);
    end;
    //点击BUTTON1，模拟在EDIT1中输入A
      

  3.   

    谢谢天外流星，问题没有完成。我在EDIT.ONKEYDOWN中按F7是调出另一窗体，用菜单的按钮来调用同一过程。   if Assigned(LastEdit)then
         if LastEdit.Focused then下一句如何写？
    LastEdit.OnKeyDown   参数如何写？