能不能在MEMO中控制光标?如UP DOWN LEFT RIGHT等操作

解决方案 »

  1.   

    SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);这个是滚动的操作,楼主的那个上下左右的举一反三就可以了。祝:身体健康,结贴长信誉!:)
      

  2.   

    严禁罐水!!!!!!!!!!!!!!如果是向上是不是SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEUP,0);??
      

  3.   

    不会讲话可以写代码!!procedure TForm1.Button1Click(Sender: TObject);
    begin
    SendMessage(memo1.Handle,WM_KEYDOWN,vk_DOWN,1);
    memo1.SetFocus;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
    SendMessage(memo1.Handle,WM_KEYDOWN,vk_up,1);
    memo1.SetFocus;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
    SendMessage(memo1.Handle,WM_KEYDOWN,vk_left,1);
    memo1.SetFocus;
    end;procedure TForm1.Button4Click(Sender: TObject);
    begin
    SendMessage(memo1.Handle,WM_KEYDOWN,vk_right,1);
    memo1.SetFocus;
    end;祝:身体健康,分数和答案一样重要:)