Обмен данными между формами

[Demien]

Я понимаю что вопрос это глупый и примитивный...
но все-же:
Как заставить программу переносить данные из формы в форму?
Например в одной форме в эдит ввел данные, а на второй получил их в лэйбэл???

[mihali4]

Если в Form2 забираем данные из Form1:
Label1.Caption:=Form1.Edit1.Text;
Если из Form1 передаем данные в Form2:
Form2.Label1.Caption:=Edit1.Text;
Для компонентов "своей" формы принадлежность не указывается.
Label1 - на форме Form2, Edit1 - на форме Form1.

[Demien]

Супер!!! Спасибо!!!
Я знал что все делается просто, но мозгов не хватило...
Да и вкнигах ничего не нашел.

[Airou]

А как передать переменную из одной формы в другую. Где-то уже видел но теперь так и не смог найти...

[mihali4]

Аналогично. Только переменная принадлежит не форме, а модулю...
Поэтому указывать надо не Form2.my_value, а Unit2.my_value...

[Airou]

Эмм... пару вопросов
1. Переменная в Unit1 должна быть глобальной или может быть и локальной, или ее вообще еще где-то надо объявлять?
2. В Unit2 в раздел implementations или Uses надо добавлять Unit1?
3. Обьявил как глобальную переменную var N: string;
Присвоил ей N:='текст';
Затем добавил в Unit2 в uses Unit1
И затем присвоил Label1.Caption:=Unit1.N
И в итоге получил лейбл без надписи... тобишь N=' '...
Что неправильно сделал?

[alexBlack]

Сообщение от Airou

Эмм... пару вопросов
1. Переменная в Unit1 должна быть глобальной или может быть и локальной, или ее вообще еще где-то надо объявлять?
2. В Unit2 в раздел implementations или Uses надо добавлять Unit1?
3. Обьявил как глобальную переменную var N: string;
Присвоил ей N:='текст';
Затем добавил в Unit2 в uses Unit1
И затем присвоил Label1.Caption:=Unit1.N
И в итоге получил лейбл без надписи... тобишь N=' '...
Что неправильно сделал?

где присвоил ?

Сделайте так:

const N : String = 'текст';

[Airou]

Присвоил в обработчике нажатия кнопки
вот куски

  public
    { Public declarations }
  end;

  var
  Form1: TForm1;  
  N: String;

procedure TForm1.Button1Click(Sender: TObject);     
begin
 N:='Текст';
 Form2.ShowModal;                
end;

+ ко всему зачем делать N const ...мне она как раз Variable нужна.

[student_63]

Кажется, нужно не ShowModal, а просто Show

[alexBlack]

Сообщение от Airou

Присвоил в обработчике нажатия кнопки
вот куски
...

procedure TForm1.Button1Click(Sender: TObject);     
begin
 N:='Текст';
 Form2.ShowModal;                
end;

+ ко всему зачем делать N const ...мне она как раз Variable нужна.

Пусть так. Значит перед
Label1.Caption:=Unit1.N

не вызывается
Form1.Button1Click

Поставьте точки прерывания и посмотрите что вызывается раньше - присвоение N := ... или Label1.Caption := ....