|
#1
|
|||
|
|||
запуск label
проблема такая, есть 2 формы, на одно располагаются компоненты edit, на второй label. Вводишь данные на form1 нажимаешь на кнопку и появляется form2 где лейблы принимают значения которые ввели в edit, но принимают они эти значения только когда кликнешь по ним мышью. нужно сделать так чтобы при открытия формы все 40 лейблов приняли значения едитов. помогите пожалуйста.
|
#2
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.Label1.Caption:=Edit1.Text; Form2.Label2.Caption:=Edit2.Text; Form2.Label3.Caption:=Edit3.Text; Form2.Label4.Caption:=Edit4.Text; Form2.Label5.Caption:=Edit5.Text; Form2.ShowModal; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
OTVET (21.01.2013)
|
#3
|
|||
|
|||
спасибо, а как еще сделать чтобы при этом закрывалось form1
|
#4
|
||||
|
||||
Код:
form1.close — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
Код:
Hide; Form2.ShowModal; Show; Пишу программы за еду. __________________ |
Эти 2 пользователя(ей) сказали Спасибо NumLock за это полезное сообщение: | ||
chelsea_1993 (20.01.2013),
OTVET (21.01.2013)
|