![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
определение свойств [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?