[Uniq!]

Код:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    Form2.Left := X;
    Form2.Top := Y;
    Form2.ShowModal;
  end;
end;

Что необходимо добавить чтоб модальная форма появилась именно там где был сделан клик? Сейчас оно всплывает как-то не там...

[Alegun]

Сообщение от Uniq!

Что необходимо добавить чтоб модальная форма появилась именно там где был сделан клик?...

Код:

...

    Form2.Left := X + Left;
    Form2.Top := Y + Top;

...

Надо будет ещё добавить\убавить суммы на толщину рамки, но это чисто эмпирически.

[Uniq!]

Для этих целей функция Есть,

Код:

TComponent.ClientToScreen

Я только не могу разобраться как она работает... что к чему лепит

Есть ещё её антоним...

Код:

ScreenToClient

Зачем воровать, всё уже своровано до нас. (С)

[angvelem]

Сообщение от Uniq!

... не могу разобраться как она работает...

Всё просто

Код:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt : TPoint;
begin
  pt := PaintBox1.ClientToScreen(Point(X, Y));
  Form2.Left := pt.X;
  Form2.Top  := pt.Y;
  Form2.ShowModal;
end;

[Uniq!]

Ох ёпрст. А я голову ломал.
Функция пересчитывает внутренние координаты компонента в экранные
А её антоним делает наоборот, экран перекидывает на компонент.

Спасибо. Помогли.