|
#1
|
|||
|
|||
Как создать форму
Здрасте!
У меня такой вопрос(сильно не издевайтесь) Как открыть новую форму с помошью кнопки |
#2
|
||||
|
||||
Код:
procedure Form1.Button3Click(Sender); begin SomeForm.Create; SomeForm.ShowModal; SomeForm.Free; end; THE CRACKER IS OUT THERE |
#3
|
|||
|
|||
Форму2 надо открыть из меню формы1 через
procedure TForm1.N3Click(Sender: TObject); |
#4
|
||||
|
||||
Код:
procedure TForm1.N3Click(Sender: TObject); begin //Form2.Create; // эту и нижнюю строку нужно раскомментировать, // если форма 2 у вас исключена из списка // автоматически создаваемых форм (в настройках // проекта) Form2.ShowModal; //Form2.Free; end; THE CRACKER IS OUT THERE |
#5
|
||||
|
||||
Неправда Ваша!
Цитата:
|
#6
|
||||
|
||||
Виноват
Писал из головы, а голова была занята другими вещами под завязку. THE CRACKER IS OUT THERE |
#7
|
|||
|
|||
Вообщето форма создаётся при загрузке программы без помощи конера, и уничтожается при завершении работы приложения
Если так, то можно будет управлять только открытой формой, пока она не закроется: Код:
procedure TForm1.N3Click(Sender: TObject); begin Form2.ShowModal; end; Если надо управлять всеми формами, например это у вас будет плавающее окошко, то делайте так: Код:
procedure TForm1.N3Click(Sender: TObject); begin Form2.Show; end; My life Dark-Fire TEAM
|
#8
|
||||
|
||||
Уважаемый zNk, форма создается автоматически, только если она находится в списе автоматически создаваемых форм в настройках проекта!
Если Вы заметили, то в приведенных в качестве примера кодах присутствует комментарий: // эту и нижнюю строку нужно раскомментировать, // если форма 2 у вас исключена из списка // автоматически создаваемых форм (в настройках // проекта) И не стоит делать по нескольку одинаковых постов, если что-то забыли написать, но уже отпостили, то пост можно изменить при помощи кнопки "Правка" THE CRACKER IS OUT THERE |
#9
|
|||
|
|||
На счёт самой темы:
Я просто более подробно разъяснил =) На счёт постов: Это баг форума. И не у меня одного два поста кинулось случайно... My life Dark-Fire TEAM
|
#10
|
|||
|
|||
Всем огромное СПАСИБО
|