Формы

← →
zmei (2003-10-10 20:38) [0]

у меня есть две формы form1 и form2 на form 2 есть поле edit1
почему с form 1 я могу толко писать в form2.edit1 а считывать не получается?

← →
Palladin (2003-10-10 20:41) [1]

да вот я тоже сижу спичку кручу, в одну сторону хорошо, а вот в другую проблемы какие то, почему так не можешь сказать?

← →
Zmei (2003-10-10 20:57) [2]

Неа не могу. Ответь по существу

← →
Palladin (2003-10-10 21:15) [3]

Вот и я не могу тебе ответить... подумай почему.

← →
Zmei (2003-10-10 21:26) [4]

Без понятия. Я просто не могу связать 2 переменные с разных форм.

← →
Eagle Owl (2003-10-10 21:31) [5]

Либо ты объяснил не правильно, либо...
Если можешь писать в Form2.Edit1, то и считываться должно...

← →
Anatoly Podgoretsky (2003-10-10 21:43) [6]

Точно обманывает

← →
Zacho (2003-10-10 21:49) [7]

Ох.. Код приведи. Иначе кроме издевательств, ничего не получишь.. Телепатов нет.

← →
Zmei (2003-10-10 22:01) [8]

Первая форма
var Form1: TForm1; z:integer; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if radiobutton1.Checked = true then z:=1; if radiobutton2.Checked = true then z:=2; form2.Show; end;

Вторая форма
var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin Label1.Caption:=inttostr(z); end;

В любом случае z=0

← →
Anatoly Podgoretsky (2003-10-10 22:09) [9]

Что то не видать тут записи в form2.edit1 и естественно чтения.

← →
zmei (2003-10-10 22:19) [10]

это в качестве примера тоже пойдет. не читается в данном случае
radiobutton.checked

← →
Anatoly Podgoretsky (2003-10-10 22:22) [11]

Не видать объявлений radiobuttonХ, гадать не буду.

← →
Zacho (2003-10-10 22:24) [12]

И Form2.edit1 тоже не видать ...
Ну и как отвечать на такие вопросы ???

← →
Zmei (2003-10-10 22:55) [13]

Ну вы чего мужики... вот полный код.!
Форма 1!!!
unit u_vibor; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TVibor = class(TForm) RadioButton1: TRadioButton; RadioButton2: TRadioButton; bt_ok: TBitBtn; procedure bt_okClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Vibor: TVibor; implementation uses u_vax; {$R *.dfm} procedure TVibor.bt_okClick(Sender: TObject); begin if RadioButton2.Checked = true then pravilo:=2; if RadioButton1.Checked = true then pravilo:=1; end; end.

Форма 2!!!
unit u_vax; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Menus, ComCtrls; type Tpr_vax = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } var pravilo: integer; MyLabel: array[1..13] of TLabel; implementation uses u_about , u_rez, CONVUNIT, u_vibor; {$R *.dfm} procedure FormCreate(Sender: TObject); begin MyLabel.caption:=inttostr(pravilo); /// вот тут вот всегда 0 почему????

← →
Anatoly Podgoretsky (2003-10-10 23:04) [14]

Ну наверно оно в этот момент равно 0, по крайней мере не видно, почему оно должно быть другим.

← →
Zmei (2003-10-10 23:07) [15]

так в прошлой форме я указываю что или один или два....но никак не 0

← →
Zacho (2003-10-10 23:15) [16]

> Zmei (10.10.03 23:07) [15]

А что такое "прошлая" ?

← →
Anatoly Podgoretsky (2003-10-10 23:16) [17]

А какое отношение обработчик нажатия кнопки ОК имеет к обработчику создания второй формы. Покажи код создания формы и ее вызова и его связь с обработчиком TVibor.bt_okClick.

← →
Zmei (2003-10-10 23:19) [18]

Sorry Забыл
procedure TVibor.bt_okClick(Sender: TObject); begin if RadioButton2.Checked = true then pravilo:=2; if RadioButton1.Checked = true then pravilo:=1; u_vax.pr_vax.Show; end; end.

А прошлая это Форма 1

← →
Zmei (2003-10-10 23:20) [19]

Вы конечно извените если я номано объяснить не могу.

← →
Anatoly Podgoretsky (2003-10-10 23:24) [20]

← →
Zmei (2003-10-10 23:31) [21]

ПРИВЕЛ [13]

← →
Zacho (2003-10-10 23:36) [22]

Сделаем проще: пошли свои исходники мне на zacho@inbox.ru Если будет время - посмотрю и отвечу.

← →
Zmei (2003-10-10 23:48) [23]

ок спасибо. послал

← →
Zacho (2003-10-11 00:26) [24]

Подождешь пару часов ? У нас уже почти утро, проснусь, посмотрю и отвечу

← →
Johnmen (2003-10-11 01:03) [25]

Во-первых, стоит почитать хелп на тему uses и его применение в интерфейсной секции и секции реализации. У тебя это не вполне корректно...
Во-вторых, когда ты создаешь вторую форму (а делается это у тебя наверняка в файле проекта :) сразу же вслед за ф.1), значение твоей переменной неопределено, т.к. кнопу на ф.1 еще не жали...

← →
Anatoly Podgoretsky (2003-10-11 11:46) [26]

Zmei (10.10.03 23:31) [21]
Там этого нет, на всякий случай повторяю, те моменты, которые ни как не отражены в том коде.

А какое отношение обработчик нажатия кнопки ОК имеет к обработчику создания второй формы. Покажи код создания формы и ее вызова и его связь с обработчиком TVibor.bt_okClick.

Где код создания и вызова формы. Без этого ответа нет.

← →
Zmei (2003-10-11 18:59) [27]

← →
Palladin (2003-10-11 20:25) [28]

procedure FormCreate(Sender: TObject); не вижу описания принадлежности к какому либо классу...

FormCreate - как я подозреваю все таки висит на событии OnCreate;
в коде
if RadioButton2.Checked = true then pravilo:=2;
if RadioButton1.Checked = true then pravilo:=1;
u_vax.pr_vax.Show;
я лишь виду вызов Show но не вижу создания, вывод: создана она была раньше, когда pravilo было ни 2 и ни 1, а ноль...

вызов Show не вызывает события OnCreate формы... он вызывает событие OnShow...

я не понимаю твоего удивления

Формы Найти похожие ветки