2 вопроса (RichEdit и TabControl)

← →
Дома (2003-07-13 23:08) [0]

1. Не подскажите как можно узнать координаты курсора в пикселях относительно Topа и Leftа RichEdita (необходимо для вставки всплывающей подсказки с вариантами для выбора...) Да если кто-нибудь знает как это можно сделать проще напишите...
(Только не надо мне отвечать про проперти CarepPos мне нужно немного другое), если вам известно как использовать сообщение EM_CHARFROMPOS, то напишите...

2. И еще вопрос: как можно удалить Tab у TabControla, зная только HWND? или как можно обработать в MDI Formе закрытие Childа... (все это нужно чтобы сделать что-то похожее на OPERA - типа на каждую форму в тул баре своя закладка... мелачь а приятно

Зарание спасибо...

← →
Ученик (2003-07-13 23:22) [1]

>Дома © (13.07.03 23:08) (1)
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
P: TPoint;
begin
P := Point(X, Y);
ShowMessage(IntToStr(SendMessage(RichEdit1.Handle, EM_CHARFROMPOS, 0, Integer(@P))))
end;

← →
VID (2003-07-14 00:46) [2]

а вообще юзай RxRichEdit...

2 вопроса (RichEdit и TabControl) Найти похожие ветки