[bambooshoot]

Всем привет! Народ подскажите как можно реализовать окно подобное окну с подсказками в делфи. Как привязать его к курсору? Спасибо

[Ildar-tsr]

Наверно ты имеешь в виду хинты? Это подсказки, которые всплывают если навести курсор на какой-либо компонент.

[bambooshoot]

Нет. Если пишешь например button1ставишь точку и появляется окно в котором описаны свойства, функции и т.д.

[Cooper72]

Нужно написать свой класс, наследник tcustomcontrol. вставить в него tlistbox. определиться откуда будут браться данные (то, что дописывается после точки). Позиция нового окна рассчитывается от позиции каретки.
как-то так.

[bambooshoot]

А как рассчитать позицию каретки?

[Ildar-tsr]

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

А как рассчитать позицию каретки?

Ну например для компонента Memo:

Код:

var
  p: TPoint;
begin
  p:= Memo1.CaretPos;
end;

Код:

StdCtrls:
property CaretPos: TPoint read GetCaretPos write SetCaretPos;
function GetCaretPos: TPoint; virtual;
procedure SetCaretPos(const Value: TPoint); virtual;

[bambooshoot]

рассчитываю позицию каретки так:

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo2.Left:= Memo1.Left+Memo1.CaretPos.X*2+12;
Memo2.Top:=Memo1.Top+Memo1.CaretPos.Y*3+Memo1.Font.Size+Memo1.Lines.Count*10;
 end;

Для y получается все нормально, а для х идет запаздывание. Что-то я не учитываю, а что понять не могу. А есть ли какие-то другие варианты решения этой задачи? Подскажите пожалуйста.

[Ildar-tsr]

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

Что-то я не учитываю, а что понять не могу.

Да уж, точно. Все дело в том, что Х возвращает расположение по пикселям, а символ содержать несколько пикселей в ширину. Засада, скорее всего caretPos не получиться использовать.

[bambooshoot]

Должны же быть еще какие-то варианты решения проблемы. Или все так безнадежно?

[Pyro]

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

рассчитываю позицию каретки так:

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo2.Left:= Memo1.Left+Memo1.CaretPos.X*2+12;
Memo2.Top:=Memo1.Top+Memo1.CaretPos.Y*3+Memo1.Font.Size+Memo1.Lines.Count*10;
 end;

Для y получается все нормально, а для х идет запаздывание. Что-то я не учитываю, а что понять не могу. А есть ли какие-то другие варианты решения этой задачи? Подскажите пожалуйста.

для y тоже не нормально, т.к. y не должна зависеть от количества строк в memo, ещё и умноженном на 10


вот такой вариант, будет работать, если form.font = memo.font

PHP код:

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  function LineWidth(s: string; symbols: integer): integer;
  begin
    s := copy(s, 1, symbols);
    result := canvas.TextWidth(s);
  end;

var p: tpoint;
begin
  p := Memo1.CaretPos;
  p.x := LineWidth(Memo1.Lines[p.y]+'X', p.x+1);
  p.y := p.y * Canvas.TextHeight('X');
  Memo2.left := memo1.left + p.x; Memo2.Top := memo1.top + p.y;
end; 


[bambooshoot]

Спасибо, Pyro за участие. Достойный код, хотя мой, несмотря на его странность - тоже работает , но только как я говорил выше - для y. Насчет х у меня вообще ахинея полная. Я чуть-чуть подправил твой код:

Код:

function LineWidth(s: string; symbols: integer): integer;
  begin
    s := copy(s, 1, symbols);
    result := form1.canvas.TextWidth(s);
  end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var p: tpoint;
begin
  p := Memo1.CaretPos;
  p.x := LineWidth(Memo1.Lines[p.y]+'X', p.x+1);
  p.y := p.y * Canvas.TextHeight('X')+18;
  Memo2.left := memo1.left + p.x; Memo2.Top := memo1.top + p.y;
end;

Число в р.y может быть любым, в зависимости от предпочтений
Спасибо всем огромное за участие. Хорошо поговорили Может быть еще кто-нибудь выскажется?

[Pyro]

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

хотя мой, несмотря на его странность - тоже работает

работает, если не возвращаться вверх по тексту

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

Число в р.y может быть любым, в зависимости от предпочтений

и при другом размере шрифта, число придётся тоже менять
хорошая практика, когда одно изменение вносится в одном месте
ещё есть антипаттерн

если сделать так, то от размера шрифта не будет зависеть:

PHP код:

p.y := (p.y + 1) * Canvas.TextHeight('X') + 5; 


Код:

LineWidth(Memo1.Lines[p.y]+'X', p.x+1)

а это место мне самому не совсем понятно, но работает и ладно

[bambooshoot]

работает, если не возвращаться вверх по тексту

Да, ты прав. Сдаюсь . За ссылку отдельное спасибо.