Как узнать на какую строку в DBLookupListBox идет перенос данных. В ListBox есть свойство ItemAtPos, а тут нету

Цитата

Specifies the number of items displayed in the drop-down list of the TDBLookupComboBox. Delphi syntax: property DropDownRows: Integer;

все бы неплохо, но у DBLookupListBox нет такого свойства!

То ли я чего не понял ...
Но это же DB, сначала нужно в базюку записать, и только потом Refresh сделать ....
Или у него есть свойство, что при переносе он сам в базюку добавляет ???
Немае вроде такого ..

Gorets, тебе нужно обращатся к DataSet через DataSource и уже к значению поля, желательно уникального.
Дело в том, что все визулизирующие компоненты для БД не содержат в себе данных, они данные только рисуют.

да я реально никуда данные не переношу! у меня в dblookuplistbox отображаются группы товаров, а соседнем DBGrid сами товары. Я хочу сделать так, чтоб при переносе мышкой товара на определенную группу в dblookuplistbox товар переносился в эту группу, а реально просто в свойствах товара менялся номер группы, на тот который окажется под мышкой после переноса. Вот мне и надо узнать на какую строчку dblookuplistboxa я перенес товар!


Это сообщение отредактировал(а) Gorets - 13.7.2005, 13:16

посмотри SelectedItem
Добавлено @ 13:34

Код

procedure TForm1.DBLookupListBox1DragDrop(Sender, Source: TObject; X,   Y: Integer); begin end;

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

Это сообщение отредактировал(а) Girder - 15.7.2005, 13:06

Цитата(dsergey @ 13.7.2005, 13:27)

посмотри SelectedItem Добавлено @ 13:34 Код procedure TForm1.DBLookupListBox1DragDrop(Sender, Source: TObject; X,   Y: Integer); begin end; нужно вычислять итем из координат

SelectedItem не подходит т.к. это текущая группа, а не та, на которую я переношу данные.
а вот то, что вычислять по координатам я и сам прекрасно понимаю, но вот каким образом

Это сообщение отредактировал(а) Girder - 15.7.2005, 13:06

Код

var   APoint: TPoint;   Index: integer; begin   APoint.X := X;   APoint.Y := Y;   Index := DBListBox1.ItemAtPos(APoint, True);

//Index это есть RecNom (если нет фильтра) из набора данных

Добавлено @ 13:55
значит используй ListBox (заполняй его ручками)

Это сообщение отредактировал(а) Girder - 15.7.2005, 13:07

мне кажется, что в этом случае нужно WinAPI использовать, нужно посмотреть
Добавлено @ 14:22
Из справки по WinAPI

Приложению посылается это собщение для получения индекса ближайшего итема относительно точки(т.е. курсора мышки)

An application sends this message to retrieve the zero-based index of the item nearest the specified point in a list box.

LB_ITEMFROMPOINT
wParam = 0; // not used, must be zero
lParam = (LPARAM) MAKELPARAM(xPos, yPos); // coordinates of point


Parameters

xPos

Value of the low-order word of lParam. Specifies the x-coordinate of a point, relative to the upper-left corner of the client area of the list box.

yPos

Value of the high-order word of lParam. Specifies the y-coordinate of a point, relative to the upper-left corner of the client area of the list box.



Return Values

The return value contains the index of the nearest item in the low-order word. The high-order word is zero if the specified point is in the client area of the list box, or one if it is outside the client area.

DBLookupListBox.Perfom

этот код работает с DBLookupListBox

Код

Var  pc,p:TPoint; begin     GetCursorPos(p);     pc:=ScreenToClient(p);     //Label1.Caption := 'x='+IntToStr(pc.X)+' y='+IntToStr(pc.Y);     Form1.Caption := IntToStr(ListBox1.Perform(LB_ITEMFROMPOINT, 0,MAKELPARAM(pc.X , pc.Y))) //в Form1.Caption заносим индекс, гначиная от единицы

этот код не работает DBLookupListBox

Код

Var  pc,p:TPoint; begin     GetCursorPos(p);     pc:=ScreenToClient(p);     //Label1.Caption := 'x='+IntToStr(pc.X)+' y='+IntToStr(pc.Y);     Form1.Caption := IntToStr(DBLookupListBox1.Perform(LB_ITEMFROMPOINT, 0,MAKELPARAM(pc.X , pc.Y))) //в Form1.Caption заносим индекс, гначиная от единицы

у меня на форме лежит DBLookupListBox и ListBox

Добавлено @ 14:58
этот код я вставил в таймер, причём оба коде не хотят рабоать с ListBox
Добавлено @ 15:04
так лучше

Код

Var  pc,p:TPoint; begin     GetCursorPos(p);     pc:=DBLookupListBox1.ScreenToClient(p);     Label1.Caption := 'x='+IntToStr(pc.X)+' y='+IntToStr(pc.Y);     Form1.Caption := IntToStr(ListBox1.Perform(LB_ITEMFROMPOINT, 0,MAKELPARAM(pc.X , pc.Y)))

теперь отсчёт итема начинается с нуля


но почему так не работает???
Form1.Caption := IntToStr(DBLookupListBox1.Perform(LB_ITEMFROMPOINT, 0,MAKELPARAM(pc.X , pc.Y)))


Добавлено @ 15:05
наверное, потому, что сообщение должен обраьатывать ListBox

в этом коде проблема, в листбоксе должно быть строк столько же или больше как и в DBLookupListBox

ну так неужели нельзя решить этот вопрос? я очень надеюсь

Цитата(Gorets @ 13.7.2005, 10:38)

В ListBox есть свойство ItemAtPos,

Используй, значит ListBox, заполненный ручками.

да все бы было неплохо, но в ListBox нет замечательного значения KeyField, а оно очень упрощает жизнь.....

Запиши в базюку данные и запомни их новый ID. За тем в цикле пробегись по всем выбранным данным и сравнивай, то это поле или нет. По - другому , по-моему, никак ....

Это сообщение отредактировал(а) Marriage - 14.7.2005, 14:14

Используй что-то такое

Код

while not Table1.eof do   ListBox1.AddItem(Table1.FieldByName('StringField').AsString,Pointer(Table1.FieldByName('Id').AsInteger));

вот и заполнили список вместе с KeyField
Теперь как вытащить?
Да вот так:

Код

ShowMessage( ListBox1.Items[ Integer(ListBox1.Items.Objects[12]) ]);   Integer(ListBox1.Items.Objects[12]) - это номер строки

Положи на форму две кнопки и список добавь этот код и посмотри, что получиться

Код

procedure TForm1.Button1Click(Sender: TObject); Var  i:integer; begin   For i:=0 to 1000 do     ListBox1.AddItem('Строка # '+IntToStr(i),Pointer(i)); end; procedure TForm1.Button2Click(Sender: TObject); Var  t:integer; begin   i:=12;   ShowMessage(ListBox1.Items[Integer(ListBox1.Items.Objects[i])]); end; end.

2dsergey : спасибо за помощь! прийдется наверно так и делать........