Показать сообщение отдельно
  #2  
Старый 09.09.2008, 21:13
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

Во можно так))) Сразу камент: не люблю прекрещивающиеся ссылки, так что всегда пытаюсь избежать...

Код:
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;
Ответить с цитированием