[Uniq!]

Создание TImage в том месте где был вызван пункт меню "Create Table" из PMForm - popupmenu.

Код:

procedure TForm1.CreateTable1Click(Sender: TObject);
begin
  with TImage.Create(Form1) do
    try
      begin
        Top := ScreenToClient(PMForm.PopupPoint).X;
        Left := ScreenToClient(PMForm.PopupPoint).Y;
        Width := 100;
        Height := 100;
        Canvas.FillRect(ClientRect);
      end;
    finally
      Free;
    end;
end;

При попытке прикрепить координаты PopupMenu к форме фнукцией ScreenToClient генерируется исключение с текстом

Код:

"Exception class EInvalidOperation with message 'Control '' has no parent window'. Process CaseDB.exe (3596)"

В чём может быть проблема? (Чую, что нету родственных связей между компонентами)

[Aristarh Dark]

Он жеж тебе говорит, что парента задать нужно.

[Uniq!]

Так стоп, а Parent и Owner это не одно и тоже в этом случае?
При создании TImage.Create(Form1) ссылки на Form1 не достаточно?

[Aristarh Dark]

Нет, не одно и то же.