|
#1
|
|||
|
|||
Реализация форм
Добрый день. Как сделать так, чтобы при нажатии кнопки button1 на форме form1 открывалась форма form2 с другими кнопками? Обе формы в одном проекте.
|
#2
|
|||
|
|||
Код:
Form2.Show; или Код:
Form2.ShowModal; |
#3
|
|||
|
|||
При этом не забыть в uses первой формы прописать имя модуля (имя.pas) второй формы
|
#4
|
|||
|
|||
Спасибо, все заработало.
|
#5
|
|||
|
|||
Как сделать так, чтобы при нажатии кнопки button1 на форме form1, переменная b в модуле unit2 (того же проекта) принимала значение 1, а при нажатии button10 - значение 10 ?
|
#6
|
|||
|
|||
form2
Код:
public b :integer; form 1 Код:
procedure TForm1.Button1Click(Sender: TObject); begin form2.b : = 1; end; Код:
procedure TForm1.Button10Click(Sender: TObject); begin form2.b : = 10; end; только если форм2 ещё не создана - будет ошибку выдавать. |