VPF::данные edit1 form1 перевести в edit1 form2

Alimgan2902

Дата 12.9.2013, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.9.2013

Репутация: нет
Всего: нет

Добрый день. подскажите как правильно перевести данные из edit формы1 в label другой формы2

Код


var
  Form1: TForm1;
  Edit13: string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit13.Text:='';
Form2.Show;
Form2.label1.caption:=Form1.Edit13;
end;

Это сообщение отредактировал(а) Poseidon - 12.9.2013, 09:22

Illusion Dolphin

Дата 12.9.2013, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

Form2.label1.caption:=Form1.Edit13;

Вот тут точно ошибка, надо:

Код


Form2.Label1.Caption := Form1.Edit13.Text;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Alimgan2902

Дата 12.9.2013, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.9.2013

Репутация: нет
Всего: нет

спс

...но инфа введенная в form1.edit13 не показываеся в form2.Label1 может чтото надо добавить во второй форме

------------------------------------------------------------------------------------------------------

Код


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Menus, StdCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    PrintDialog1: TPrintDialog;
    N2: TMenuItem;
    Label1: TLabel;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.N1Click(Sender: TObject);
begin
 PrintDialog1.Execute;
 Form2.Print;
end;
end.

------------------------------------------------------------------------------------------------------

M
Poseidon

При вставке кода пользуйтесь кнопкой user posted image

Подробнее...

Это сообщение отредактировал(а) Poseidon - 12.9.2013, 10:56

Illusion Dolphin

Дата 12.9.2013, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

но инфа введенная в form1.edit13 не показываеся в form2.Label1

А что показывается? Неужели пусто? (trollface)

Попробуем угадать smile

Код


Edit13.Text := ''; //очищаем Edit13
Form2.Show; //показываем форму
Form2.Label1.Caption := Form1.Edit13.Text; //заполняем лэйбл данными из эдит. Ой, а в 1й строчке мы ж его обнулили (trollface)

--------------------

Alimgan2902

Дата 12.9.2013, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.9.2013

Репутация: нет
Всего: нет

...понял, удалил лишнюю строку... smile

большое спасибо...все просто...я такой вариант пробовал...но чтото не получилось...а щас норм smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »