![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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
|
|||
|
|||
Drozh самое большое тебе спасибо ![]() |