|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Потеря объекта при передачи
Не могу понять. Передаю объект форме(В форме создал новый конструктор) до перехода в Create данные в отладчике видны(переменная self), после перехода, данные (переменная Tablic) исчезают, значение в отладчике показываеться просто (). Если я не правильно что-то написал прошу обяснить тогда как мне передать в форму данные и получить из неё.
Код:
procedure TTabl_Vozv.AddStroka; var SS:TForm2; begin B:=TStroka.Create(self.Stolbec); SS:=TForm2.Create(Application,self); SS.caption:=('Добавить строку'); SS.ShowModal; if A then self.Add; self.Masiv[Read_All_Strok].Stroka[1]:=B.Read_Cell(1); self.Masiv[Read_All_Strok].Stroka[2]:=B.Read_Cell(2); A:=true; B.Free; end; переходит в Код:
constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject); Var y:Integer; begin Tabl:=TTabl_Vozv(Tablic); inherited Create(Aowner); end; |
#2
|
||||
|
||||
Код:
TForm2.Create(Application,self); constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject); или TForm2 = class(TForm3); ? Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
Извеняюсь в попыхах не ту функцию вставил Код:
procedure TTabl_Vozv.DeleteStroka; var SS:TForm3; begin SS:=TForm3.Create(Application,self); SS.caption:=('Удалить строку'); SS.ShowModal; if Flag then Dec(K); B.Free; end; Создаеться объект. В одной из его процедур создаёться другое окно, в нём вводяться какие то данные, потом окно закрываеться и данные должны быть внесенны в объекте вызвавшем это окошко. При передаче сейчас как есть self'a данные не передаються в форму. Что делать???? Для проверки в моей программе нажать кнопку 2 для загрузки массива из фаила данными, а потом 1 кнопку. |
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
а так не годится:
Код:
unit Unit1; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject); begin Form2:=TForm2.Create(Application); Form2.ShowModal; ShowMessage(Form2.Edit1.Text+#13#10+Form2.Edit2.Text+#13#10+Form2.Edit3.Text); Form2.Free; end; Код:
unit Unit2; type TForm2 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Как я понял, обьект TUchast есть потомок обьекта TTabl_Vozv, и у него перегружена проседура AddStroka(), тоесть при ее вызове вызывается TForm4, а не TForm2, как у класса родителя. Просто перепиши для TForm4 все что написал для TForm2 - у меня все работает, или я что-то не так понял.
|
#7
|
||||
|
||||
Цитата:
|
#8
|
||||
|
||||
Все дело в ShowModal - после вызова окна из текущей проседуры уже не можешь изменить поля. Изменяй поля перед вызовом формы или используй метод Show, хотя не рекомендую.
вот проверь Код:
B:=TStroka.Create(self.Stolbec); SS:=TForm4.Create(Application,self); SS.caption:=('Äîáàâèòü ó÷àñòîê'); ss.Memo1.Lines.Add('aa'); SS.ShowModal; ss.Memo1.Lines.Add('bb'); if A then self.Add; self.Masiv[Read_All_Strok].Stroka[1]:=B.Read_Cell(1); self.Masiv[Read_All_Strok].Stroka[2]:=B.Read_Cell(2); A:=true; B.Free; Последний раз редактировалось YVitaliy, 20.12.2011 в 01:37. |
#9
|
||||
|
||||
Цитата:
|
#10
|
||||
|
||||
Дело в том, что при ShowModal программа как-бы "останавливается" и ждет закрытия формы, тоесть ты добавляешь данные как-бы после ее закрытия уже
|
#11
|
||||
|
||||
Цитата:
|
#12
|
||||
|
||||
Там выше пример. Я говорю о том, что данные на форме изменяй после конструктора, но перед вызовом. Обращение к свойствам обьекта типа TUchast(tabl).B действует нормально.
И еще. Если хочешь переписать метод предка, обьяви его виртуальным, а метод потомка override: type TTabl_Vozv = class ........... procedure AddStroka();virtual; ........... end; type TUchast = class(TTabl_Vozv) .......... procedure AddStroka();override; .......... end; Последний раз редактировалось YVitaliy, 20.12.2011 в 02:03. |
#13
|
||||
|
||||
Цитата:
Если не сложно черкни пару строк, я совсем что то запутался..... |
#14
|
||||
|
||||
Так вот. Сегодня на свежую голову наконец-то понял в чем суть. Ты пристальнее посмотри на проседуру Sortirovka, именно в ней твои строки "обнуляются", попробуй при вызове формы не изпользовать ету проседуру - увидишь что строки непустые. Или напиши, что именно ета "сортировка" должна делать, попробую исправить.
|
#15
|
||||
|
||||
Цитата:
|