помогите с менюшкой плиз

[m0dE^]

Кто-нибудь делал такое меню, как в делфи, которое вызывается по нажатию Ctrl+Space? не могу узнать координаты текстового курсора мемо в пикселях кто-нибудь знает решение этой проблемы?

[Вавел из ГМТУ]

Ага, так вот как его можно ещё раз вызвать
Эта менюшка называется "Знаток кода" (насколько мне известно)

Я думаю, что можно сделать невидимый ListBox и при определёных событиях делать его видимым с координатами курсора...

(первое что прилетело в пустую голову)

[m0dE^]

Сообщение от Вавел из ГМТУ

Ага, так вот как его можно ещё раз вызвать
Эта менюшка называется "Знаток кода" (насколько мне известно)

Я думаю, что можно сделать невидимый ListBox и при определёных событиях делать его видимым с координатами курсора...

(первое что прилетело в пустую голову)

Это само собой, но проблема с координатами курсора В ПИКСЕЛЯХ

[Daramant]

Попробуй это:
http://www.sql.ru/forum/actualthread.aspx?tid=660531

[artemavd]

Насколько я помню, может мой пост и глуп, но вдруг натолкнет в нужную сторону, то для того, чтобы добиться такого эффекта нужно использовать TRichEdit. Посмотрите в его сторону, изучите его внимательно, вдруг у Вас получится сделать то, что Вам нужно

[m0dE^]

Сообщение от artemavd

Насколько я помню, может мой пост и глуп, но вдруг натолкнет в нужную сторону, то для того, чтобы добиться такого эффекта нужно использовать TRichEdit. Посмотрите в его сторону, изучите его внимательно, вдруг у Вас получится сделать то, что Вам нужно

хм, но думаю, что есть и с мемо решение..

[0nni]

var
  pt : TPoint;
begin
  Windows.GetCaretPos(pt);
  pt := Memo1.ClientToScreen(pt);
  Caption := IntToStr(pt.X) + ':' + IntToStr(pt.Y);

Это при условии что Memo1 в фокусе. Точно так же для всех других окон с кареткой.

[m0dE^]

Сообщение от 0nni

var
  pt : TPoint;
begin
  Windows.GetCaretPos(pt);
  pt := Memo1.ClientToScreen(pt);
  Caption := IntToStr(pt.X) + ':' + IntToStr(pt.Y);

Это при условии что Memo1 в фокусе. Точно так же для всех других окон с кареткой.

Спасибо большое тебе! Лично я сделал вот так и работает вроде.. тьфу, тьфу, тьфу.. вот:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var pt: TPoint;
begin
if (Key=vk_Space) and (ssCtrl in Shift) then begin
  Windows.GetCaretPos(pt);
  ListBox1.Left:=pt.X+11;
  ListBox1.Top:=pt.Y+17;
  ListBox1.Visible:=True;
end else ListBox1.Visible:=False;
end;