![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужен компонент
f0rm © (2002-02-15 19:33:00)Может я прошу что-то невероятное, но. Мне нужен компонент подобный ListView со стилем vsreport. Только чтобы он умел следующее, при нажатии на ячейку выпадал бы список(типа комбобокса) и юзер мог бы там выбирать значение. Если кто умеет это делать, то плизз киньте код
MBo (2002-02-16 09:02:00) [1]попробуй что-нибудь подобное
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
Combo.Width := 40 ;
Combo.Left := item.Left+listview1.left;
Combo.Top := item.top+listview1.top;
combo.tag:=integer(item);
Combo.Visible := true;
combo.BringToFront;
Combo.SetFocus;
end;
procedure TForm1.ComboChange(Sender: TObject);
begin
tlistitem(combo.tag).caption:=combo.Items[combo.itemindex];
combo.visible:=false;
end;