Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Вниз
Формы Найти похожие ветки
← →
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!!!
/// вот тут вот всегда 0 почему????
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);
← →
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]А что такое "номано" ?
Но ты не привел кода для Anatoly Podgoretsky © (10.10.03 23:16) [17]
← →
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]2 Zacho ©
ну ТАК?
← →
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...
я не понимаю твоего удивления
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.016 c
