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