Perform

← →
Elast (2004-01-25 11:01) [0]

Уважаемые мастера! Возможно я попал не по адресу, но убедительная просьба откликнуться.
Есть ли возможность становить курсор для Ричедит таким образом:

procedure TfrmMain.Button1Click(Sender: TObject);
begin
RichEdit1.SelStart := strtoint(edEdit1.Text);
RichEdit1.Perform(EM_SCROLLCARET, 0,0);
RichEdit1.SetFocus;
end;

Устанавливается при первом нажатии на кнопку. При последующих - курсор меняет расположение, но его не видно.
Заранее благодарен.

← →
GrayFace © (2004-02-01 13:49) [1]

RichEdit1.SelLength:=0;
Хотя, наверное, это здесь не при чем.

Perform Найти похожие ветки