Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

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; без указателя!



Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-51241
phantom2040
2003-10-03 16:24
2003.10.16
Помогите


1-51239
Andy BitOff
2003-10-02 21:56
2003.10.16
Как сделать выезжающую часть окно.


3-51064
Weare
2003-09-26 12:16
2003.10.16
Печать из грида


9-51048
Арм
2003-04-15 03:57
2003.10.16
Беда с текстурами в OpeGL


3-51093
Светлана
2003-09-26 07:06
2003.10.16
Точки останова в триггерах и процедурах