Окошко подсказки в редакторе, как в Delphi

[Alter]

ListBox выскакивает не около каретки в тексте, как правильно его спозиционировать?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Parent := Memo1;
 ListBox1.Visible := False;
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key = Ord('J')) and (ssCtrl in Shift) then
 begin
  ListBox1.Left := Memo1.CaretPos.x;
  ListBox1.Top := Memo1.CaretPos.y + ListBox1.height;
  ListBox1.Visible := True;
  ListBox1.SetFocus;
 end;
end;

end.

[Granus]

=))
CaretPos.X - это не координата, а номер символа;
тоже с Y (номер строки)
если у шрифта фиксированный размер (Lucida Console, напр.) то просто умножай на размеры шрифта (откуда брать их - не ко мне)

[Granus]

зЫ
если у тя и шрифт неизменный то
размер шрифта эт вродь высота буквы
а ширину подбором))))

если кто знает как это делается красивее скажите плз.

[mutabor]

Если рассуждать логически, то Винда знает где каретка, она же ее рисует. А в Борланде решили что нам это знать не надо и в Мемо такого нет. Я думаю тут поможет знаток API.
Или хотя бы приблизительно умножать на ширину букв, с высотой проблем быть не должно, Font.Height * CaretPos.Y, разве может еще интервал междустроковый добавить к высоте шрифта.

[mihali4]

Не совсем так...
Alter, вот я вам рабочий вариант кода подготовил (на все случаи жизни):

var
  num: integer;
  numpt: TPoint;
begin
num:=SendMessage(Memo1.handle, EM_POSFROMCHAR, Memo1.SelStart + Memo1.SelLength, 0);
numpt.X:=LoWord(num);
numpt.Y:=HiWord(num);
if key=VK_CONTROL	then
begin
ListBox1.Left:=numpt.X+Memo1.Left;
ListBox1.Top:=numpt.Y+Memo1.Top;
end;
end;

Тут ваш хэлп вызывается, как вы понимаете, по клавише CTRL.

[Granus]

кхех
код не работает.
листбокс улетает куда то вправо вниз от формы

[s.Creator]

Все работает. Только если каретка не после последнего символа
MSDN говорит:

If the specified index is greater than the index of the last character in the control, the control returns -1.

SendMessage(Memo1.handle, EM_POSFROMCHAR, Memo1.SelStart + Memo1.SelLength, 0);

Если передаваемый индекс символа за последним то возвращается -1.
Соответственно лучше предпринять меры чтобы этого не происходило

[Granus]

ну незнаю
у меня всегда numpt.X и numpt.Y = 65535

[Altera]

Могу ещё посоветовать, listBox в форму воткнуть, а вот форму уже использовать, как вы listBox используете. Это для того, что-бы при поткрк фокуса окно само закрывалось. Да и вообще, как всплывающую подсказку...
----
А вот вопрос по теме: Как вставить текст в позицию каретки?

[Alter]

В результате опытов было полученно:

procedure TForm1.N45Click(Sender: TObject);
var
  OldF :TFont;
  w_, h_ :Integer; 
  Poz :TPoint;
begin 
 OldF := TFont.Create;
  Try
 OldF.Assign(Memo1.Font);
 Canvas.Font.Assign(OldF);
  // размеры букв в Memo
  w_ := Canvas.TextWidth('w');
  h_ := Canvas.TextHeight('w');
  // положение списка в Memo
 Poz.X := Memo1.CaretX * w_ - 2;
 Poz.Y := Memo1.CaretY * h_ - 2;
   // возврат в лево при перекрытии
  If Poz.X>=(Memo1.Width - LBox1.Width) then
   Poz.X := Poz.X - LBox1.Width;
   // возврат в верх при перекрытии
  If Poz.Y>=(Memo1.Height - LBox1.Height) then
   Poz.Y := Poz.Y - LBox1.Height;
 LBox1.Left := Poz.X;
 LBox1.Top := Poz.Y;
  // отображение
 LBox1.Visible := True;
 LBox1.SetFocus;
  Finally
 Memo1.Font.Assign(OldF);
 OldF.Free;
  End;
end;

работает примерно так как надо...

А вот вопрос по теме: Как вставить текст в позицию каретки?

Memo1.SelText := 'Текст';