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

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

Помогите составить обработчик для ListBox [D7, WinXP]

Страницы:   < 1 2 >

vodvorezlaya ©   (2006-09-28 12:08:00) 

Доброго времени суток.

Создал ListBox и заполнил его списком компонентов DataSource:

for i := 0 to Form1.ComponentCount-1 do
begin
  if Components[i] is TDataSource
  then ListBox1.AddItem(Components[i].Name,Components[i]);
end;

Теперь нужно по двойному щелчку на одном из элементов (компонентов DataSource) присвоить его свойству DBGrig.Dataset.

Спасибо.

---

ЮЮ   (2006-09-28 12:21:00) [21]

FindComponent, пожалуй лишнее, объекты и так хранятся в списке.

DBGrig.DataSource := TDataSouce(ListBox1.Items.Objects[ListBox1.itemindex]);

---

Elen   (2006-09-28 12:20:00) [22]

> clickmaker

Тогда нужно еще в листе связывать object. И это конечно же будет лучше

---

clickmaker   (2006-09-28 12:18:00) [23]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
DBGrig.Dataset:= TDataSource(ListBox1.Items.Objects[ListBox1.itemindex]).DataSet;
end;

---

MsGuns   (2006-09-28 12:18:00) [24]

Может, надо "перещелкивать" не датасорсы, а датасеты ?
Это вообще-то говоря совсем не одно и то же

---

Elen   (2006-09-28 12:16:00) [25]

типа :

procedure TForm1.ListBox1Click(Sender: TObject);
begin
DBGrig.Dataset:= form1.FindComponent(ListBox1.Items[ListBox1.itemindex]);
end;


---

Страницы:   < 1 2 >

Наверх