Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

определение свойств [D6, Win2k]


denis24 ©   (2004-10-19 09:48:00) 

Есть форма на ней dbrxcomboedit.При нажатии на каждую кнопку создается форма.В событии создании формы хочу прочитать свойства нажатой кнопки на первой форме ,но вываливается Access violation....

Создание второй формы при нажатии кнопки на первой форме.

frmChoice:=TfrmChoice.Create(self);
try
     frmChoice.ShowModal;
finally
frmChoice.Free;
end;

Попытка прочитать свойства нажатой кнопки  при создании второй формы

sss:=tadotable(trxdbdbedit(sender).DataSource.DataSet).tablename;


denis24   (2004-10-20 18:36:00) [1]

Если говорить конкерктно то Tadotable(rxdbcomboedit.datasource.dataset).tablename


alles   (2004-10-20 16:09:00) [2]

Какая свойства нажатой кнопкитебе именно нужно?


denis24   (2004-10-20 15:27:00) [3]

там integer   а мне нужно string свойства


alles   (2004-10-20 15:11:00) [4]

А свойство Tag для каждого  кнопку не поможет?


denis24   (2004-10-20 12:36:00) [5]

Эта процедура вызывается со всех Trxdbcomboedit.Только в зависимости от их свойств по разному заполняется форма frmChoice

procedure TfrmNew_priyom.RxDBComboEdit1ButtonClick(Sender: TObject);
begin

frmChoice:=TfrmChoice.Create(self);
try
     frmChoice.ShowModal;
finally
frmChoice.Free;
end;
end;


Sandman25   (2004-10-20 12:21:00) [6]

Короче, нужен нормальный конструктор, с дополнительным параметром, в котором передается название


msguns   (2004-10-20 12:11:00) [7]

Приведи код обработчка этой злобной кнопки


denis24   (2004-10-20 11:44:00) [8]

Никто не знает?


denis24   (2004-10-19 20:20:00) [9]

Ну помогите пожалуста!


denis24   (2004-10-19 20:08:00) [10]

Может быть так?
TfrmForm2.FormCreate(Sender: TObject);
.
.
sss:=TAdoTable(Tform_owner(Owner). (TRxDBComboEdit.DataSource.DataSet)).TableName;


denis24   (2004-10-19 18:28:00) [11]

sender-> какойто rxcomboedit с form1 Имелось ввиду любой из многих на форме.

А какой у формы родителя может быть тип?


Erik1   (2004-10-19 11:30:00) [12]

Ну ты силен.
TAdoTable(TParent(Owner).dbrxcomboedit.DataSource.DataSet).TableName;

TParent - это тип твоей формы родителя.


denis24   (2004-10-19 11:16:00) [13]

sender-> какойто rxcomboedit с form1
Так как написать?


Rem   (2004-10-19 09:57:00) [14]

>>sss:=tadotable(trxdbdbedit(sender).DataSource.DataSet).tablename;

Who is Sender?


Наверх

Титульная страница Поиск, карта сайта Написать письмо