Тема: Занести текст из Edit в Label
Показать сообщение отдельно
  #2  
Старый 28.09.2008, 18:09
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
  
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Edit1.Text;
end;
InLabel.zip
Ответить с цитированием