Платные хостинги     Раскрутка сайта     Книги по программированию

Изменение размеров дочерней формы

- Здравствуйте!!!Есть кусок кода главной формы...procedure TFormMain1.MenuItem1Click(Sender: TObject);begin TMdiForm1.Create(Self);end;Кусок кода дочерней формы...procedure TMdiForm1.FormCreate(Sender: TObject);begin MdiForm1.Width:=700; MdiForm1.Height:=500;end;вопрос....почему при выполнении события Click в главной форме выдается ошибкаСпасибо за возможные ответы ответы

- Ибо надо так:Код procedure TFormMain1.MenuItem1Click(Sender: TObject);var Child: TMdiForm1;beginChild := TMdiForm1.Create(Self);end;highlightSyntax('delphiNhMDdl','delphi'); Это сообщение отредактировал nJIaKca.spb - 6.1.2005, 10:04

- Ну во-первый, что именно за ошибка. Желательно до последней буковки, иначе диагноз затруднет.Во-вторых: А зачем TMdiForm1.Create(Self); ? Может оно и ругается на то, что форма уже существует?

- Ну ни фахт, ни фахт.Вот например:Код procedure TForm1.Button1Click(Sender: TObject);begin  TForm1.Create(self).ShowModal;end;highlightSyntax('delphiDE2Njl','delphi');Работает без объявлений элемента. Вот только обратиться к ней по имени будет проблемно... Но работает и не ругается.И почему люди, когда пишут "Выдает ошибку", не говорят какую???

- Имхо, не совсем верно Можно создать скольугодно экземпляров класса, лишь бы памяти хватило

- где же описана эта самая MdiForm1?! наверное надо проще делать:Код procedure TMdiForm1.FormCreate(Sender: TObject);beginWidth := 700;Height := 500;end;highlightSyntax('delphiJhNmE3','delphi');

- Вот это скорее всего. Где объявление этого MdiForm1?Видимо в онклике как раз нужно было написатьMdiForm1:=TMdiForm1.Create(Self);Тогда уже можно и присваивать ему эти самые видвы и хейты.И явно указывать имя не нужно, эт точно.Код procedure TFormMain1.MenuItem1Click(Sender: TObject);begin  MdiForm1:=TMdiForm1.Create(Self);end;procedure TMdiForm1.FormCreate(Sender: TObject);begin  Width:=700;  Height:=500;end;highlightSyntax('delphiM2ZlND','delphi');Вот так, думаю, корректно будет.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD