|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
RunTime TImage.Create error
Создание 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)" В чём может быть проблема? (Чую, что нету родственных связей между компонентами) Последний раз редактировалось Uniq!, 27.03.2013 в 16:02. |