Хочу менюшку как в Дельфи :)

[Utkin]

У Дельфи есть приколюшка, она в листбоксе выводит список методов класса. Я хочу в своем редакторе замутить почти такое же. Я нажимаю на определенную комбинацию кнопок и в редакторе всплывает мой ЛистБокс с моим содержимым, хинт дает более развернутую подсказку. Но я никак не могу заставить его появляться в углу около курсора в тексте (чем больше текста тем больше ошибка). Я получаю координаты через CaretPos (это Мемо), но не могу правильно преобразовать их в координаты для отображения ЛистБокса .

[k1r1ch]

Попробуйте через Mouse.Pos

[Utkin]

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

Попробуйте через Mouse.Pos

Подробней, я сегодня туго соображаю .

[k1r1ch]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Top := Mouse.CursorPos.Y;
  Button1.Left := Mouse.CursorPos.X;
end;

Вот пример

[Utkin]

Я имею ввиду курсор Memo, палка такая знаете?

[psycho-coder]

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

Я имею ввиду курсор Memo, палка такая знаете?

Знаем

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  CaretPos: TPoint;
begin
  if (ssCtrl in Shift) and (Key = VK_SPACE) then
  begin
    GetCaretPos(CaretPos);
    Button1.Top := Memo1.Top + CaretPos.Y + Memo1.Font.Size * 2;
    Button1.Left := Memo1.Left + CaretPos.X;
  end;
end;

Чуток подправил

[raxp]

что-то типа такого...

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var p: tpoint;
    Rect: TRect;
begin
 if (ssctrl in shift)and(key= ord('S')) then begin
  getcaretpos(p);
  //getWindowRect(memo1.Handle,Rect);
  caption:= inttostr(p.x)+ '-'+inttostr(p.y);

  lb.Left:= p.X + 11 + memo1.Left;//+ rect.Left;
  lb.Top:= p.Y +11 + memo1.Top;//+ rect.Top;
  lb.Visible:= true;
 end
end; 

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 key:= #0
end;

[Utkin]

Сообщение от psycho-coder

Чуток подправил

Ваш метод тоже дает искажения, как и мой. Кстати, я пробовал таким образом:

    
    // Текущее положение курсора
    x:=Memo1.CaretPos.X;
    y:=Memo1.CaretPos.Y;

    // Преобразование координат
    ListBox1.Left:=x*Memo1.Font.Size+Memo1.Left+Memo1.Font.Size;
    ListBox1.Top:=y*Memo1.Font.Size+Memo1.Top+Memo1.Font.Size;

  lb.Left:= p.X + 11 + memo1.Left;//+ rect.Left;
  lb.Top:= p.Y +11 + memo1.Top;//+ rect.Top;

Я так понимаю 11 это размер шрифта? Все равно не работает как положено. Чем больше текст, тем дальше распологается листбокс.

Я думаю проблема в том, что я получаю координаты курсора в рамках Мемо, в тоже время как вывод ЛистБокса осуществляется в рамках формы. Никак не могу правильно провести преобразование из одной системы отсчета в другую.

---------------------------------------- Добавлено --------------------------------------------------

Сделал такой финт:
1. Установил шрифт одинаковый по ширине и длине (Courier New).
2. Сделал Мемо родителем для Листбокса.

Теперь корректно показывается только по длине, но никак не по высоте . С чем это связано?

[Баламут]

А так?

var
  p: TPoint;
begin
  GetCaretPos(p);
  p := Memo1.ClientToScreen(p);
  p := Form1.ScreenToClient(p);
  p.Y := p.Y - Memo1.Font.Height;
  ListBox1.Left := p.X;
...
end;

[Utkin]

Сообщение от Баламут

А так?

var
  p: TPoint;
begin
  GetCaretPos(p);
  p := Memo1.ClientToScreen(p);
  p := Form1.ScreenToClient(p);
end;

те же артефакты - чем больше длина строки и чем она ниже расположена тем дальше Листбокс от курсора .

// Вызов в текст списка методов
procedure TForm1.MetodSpsExecute(Sender: TObject);
var
   x, y: Integer;
   p: TPoint;
begin


  // Работаем только если фокус на поле ввода
  if (Memo1.Focused=false) and (ListBox1.Focused=false) then Exit;

  // Посмотрим надо ли отображать список встроенных методов
  if MetVisio=false then
  begin

    // Найдем положение курсора
    x:=Memo1.CaretPos.X+1;
    y:=Memo1.CaretPos.Y+1;

    // Изменим положение Списка встроенных методов
    getcaretpos(p);
    ListBox1.Left:= p.X + 11 + memo1.Left;//+ rect.Left;
    ListBox1.Top:= p.Y +11 + memo1.Top;//+ rect.Top;

    // Покажем Список втсроенных методов
    ListBox1.Show;
    ListBox1.SetFocus;

    // Установим флаг отображения списка встроенных методов
    MetVisio:=true;
  end

Решил, адаптацией решения от raxp под свои нужды .