RichEdit и позиция курсора?

← →
Max_ (2003-10-03 15:23) [0]

Мне надо сделать фокус как в Delphi - после объекта ставишь точку и появляется список со свойствами! Всё получается нормально только не могу позиционировать ListBox рядом с точкой!
ListBox1.Left:=RichEdit1.Top+RichEdit1.CaretPos.X;
ListBox1.Top:=RichEdit1.Top+RichEdit1.CaretPos.Y;
Hе работает- список постоянно где-то в начале! :(

← →
VAleksey (2003-10-03 15:28) [1]

Может так:
ListBox1.Left:=RichEdit1.Left+RichEdit1.CaretPos.X;

← →
Max_ (2003-10-03 15:42) [2]

Я просто Copy->Paste делал!
ListBox1.Left:=RichEdit1.Left+RichEdit1.CaretPos.X;
ListBox1.Top:=RichEdit1.Top+RichEdit1.CaretPos.Y;
менно это и не работает!

← →
VAleksey (2003-10-03 16:16) [3]

Var lb:TListBox;
Point:^TPoint;
begin
if Key = "." then
begin
lb := TListBox.Create(Self);
RichEdit1.Perform(EM_POSFROMCHAR,Integer(Point),RichEdit1.SelStart);
lb.Left := Point^.x;
lb.Top := Point^.y;
lb.Parent := RichEdit1;
end;
end;

← →
Max_ (2003-10-03 16:27) [4]

Thanks, всё работает только я через адресацию пишу:
RichEdit1.Perform(EM_POSFROMCHAR,Integeк(@Point),RichEdit1.SelStart);
а переменную объявляю как: Point:TPoint; без указателя!

RichEdit и позиция курсора? Найти похожие ветки