![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() А можно ли передавать параметры из одной формы в другую.
Например в главной форме выполняется программа, а в другой форме вводится число например в Spinedit1 или в edit1. Но данные должны переводится в главную форму без закрытия второй.. Вот как это заморочить? |
#2
|
||||
|
||||
![]() Сначала пропиши имя модуля первой формы в uses второй
Код:
unit Form2; uses ..., Form1; Код:
procedure TForm2.Button1Click(Sender: TObject); begin Form1.Edit1.Text := 'что угодно'; end; |
#3
|
|||
|
|||
![]() Ну не. Эт не то.
Щас расскажу. Короче эквалайзер. ![]() Unit MainForm; Procedure Button1Click; Begin Form2.ShowModal; MainForm.Caption := SP; end; ================================================== = Другая форма. //Тут куча слайдеров. Unit Equalizer; Var sp : Integer; Procedure OnChangeMouse; //Подвинул слайдер и записал значение. Begin Sp := Slider.Position; End; Вот я так хотел. Но не получается. Параметры передаются только если закрыть вторую форму. |
#4
|
|||
|
|||
![]() Все получилось!
Здорово! |