Implementation. procedureTControlFom.FormCreate (Sender: Tobject);
{$R *.DFM}
procedureTControlFom.FormCreate (Sender: Tobject);
Begin
Top := MainForm.Top + MainForm.Height + 4;
Left := MainForm.Left;
End;
End.
Свои свойства Left и Top вторая форма подстраивает под те же свойства первой формы. При попытке запуска программы, однако, выводится сообщение о том, что не указан модуль, в котором описана первая форма.
|
Если нажать кнопку Yes, то в раздел uses автоматически добавится ссылка на нужный модуль. Однако, система не всегда автоматически работает. Лучше добавлять ссылки самостоятельно. В данном случае – в раздел implementation.
Дата добавления: 2014-12-02; просмотров: 669;