![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, товарищи!
Возникла проблема при создании второй формы. Суть такова: Информация для отображения во второй форме находится в переменных, объявленных в модуле первой основной формы. Для начала создаю 2 форму и отображаю ее при нажатии кнопки. Все хорошо пока вторая форма пустая. Unit Unit1 ................. implementation uses Unit2; {$R *.dfm} ............... ................ procedure TForm1.Button2Click(Sender: TObject); begin ........ Form2:=TForm2.Create(Self); Form2.Show; ...... end; end. Как только я добавляю хоть какой-нибудь компонент во вторую форму (допустим Edit), при нажатии кнопки Button2 форма уже не появляется. Зато появляется сообщение об ошибке Project такой-то.exe raised exception class EClassNotFound with message 'Class TEdit not found'.. Очень нужно разобраться в этой проблеме. В последствие мне необходимо создавать динамически TStringGrid во второй форме, в которой должна отображаться инф. из первого. Заранее спасибо за помощь! P.S Delphi 7 Последний раз редактировалось Antonio, 28.11.2010 в 12:43. |
#2
|
||||
|
||||
![]() Динамическое создание формы? тогда придется не только Create и Show, а прописать еще половину параметров: размеры, местоположение, Parent... да вообще лучше все что найдешь. А если она уже создана отдельно, в другом юните, то Create тут совсем лишний. Если откроешь код основной программы (проекта), то там форма создается автоматом. Тогда все в разы проще:
Код:
uses Unit2; ... Form2.Edit1:='Hello, world!'; Form2.Edit2:='Привет, мир!'; Form2.Show; //иногда лучше Form2.Showmodal: тогда блокируется основное окно jmp $ ; Happy End! The Cake Is A Lie. |