![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() На форме 1 расположены TButton1 и TEdit1-для ввода имени пользователя, что нужно сделать для того чтобы при нажатии на TButton1 первая форма спряталась, открылась вторая форма и на ней было написано "Приветствую Вас (TEdit1-что пользователь ввёл) в игре.................", при нажатии TButton1(на 2 форме), 2 спряталась и на 3 форме вывелось:
"(TEdit1-что пользователь ввёл), если возникли трудности,пожалуйста....." Пожалуйста опишите подробно что куда вводить! заранее благодарен. |
#2
|
|||
|
|||
![]() Во можно так))) Сразу камент: не люблю прекрещивающиеся ссылки, так что всегда пытаюсь избежать...
Код:
Unit1 uses Unit2, Unit3; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Label1.Caption := Format('Приветствую Вас %s в игре...', [Edit1.Text]); Form3.Label1.Caption := Format('%s , если возникли трудности, пожалуйста...', [Edit1.Text]); Form1.Hide; Form2.Show; end; Unit2 uses Unit3; procedure TForm2.Button1Click(Sender: TObject); begin Form2.Hide; Form3.Show; end; |
#3
|
|||
|
|||
![]() ![]() ![]() ![]() ![]() |