Скачать: CL | DM;

Уважаемые как по MouseCoord в TDBGrid   Найти похожие ветки 

← →
George3   (2002-12-10 14:48) [0]

определить запись в DataSet"е, не могу сообразить. Отзовитесь кто знает

---

← →
AlexandrN   (2002-12-10 14:52) [1]

Уточни вопрос, что именно ты хочешь получить в результате.
Установить указатель на запись под КРЫСОЙ штоли ????

---

← →
George3   (2002-12-10 15:13) [2]

Уточняю: для обработчика DragDrop по MouseCoord установить указатель на запись в DataSet"е и выбрать значения для дальнейших действий

---

← →
AlexandrN   (2002-12-10 15:34) [3]

Уточни ещё пожалуйста, куда собираешься перетаскивать запись, то есть тип компонента....

---

← →
George3   (2002-12-10 16:10) [4]

Для AlexandrN:
Мне надо не запись перенести, а
1) по MouseCoord определяю строку в TDBGrid
2) по строке из TDBGrid пока неизвестным образом определить запись в DataSet"е
3) в этой записи по значениям некоторых полей запустить требуемую ХП на SQL 2000, которая выполнит все изменения
4) перерисовать TDBGrid и остальные необходимые компоненты на форме
... теперь, наверное, вся идея

---

← →
Romkin ©   (2002-12-10 16:18) [5]

Хм... Не вижу легального пути, кроме как щелкнуть на ячейке и обработать OnCellClick - там ты уже на той записи в таблице, что нужна

---

← →
George3   (2002-12-10 16:40) [6]

Для Romkin ©
... но я бы хотел сделать красиво через Drag & Drop а не давать пользователю задание: выбери в TTreeView элемент, выбери строку в TDBGrid, нажми кнопку на панели чтобы выполнить действие.
Спасибо всем, кто со мной возится !

---

← →
Romkin ©   (2002-12-10 18:01) [7]

Нажимать кнопку не надо - щелкни на строке грида, и все, OnClick отрабатывает

---

← →
MBo ©   (2002-12-10 18:49) [8]

мелкое хакерство:


TDBGrid=class(DBGrids.TDBGrid);
...
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var Coord:TGridCoord;
CurRec:Integer;
begin
with DBGrid1 do begin
Coord:=MouseCoord(x,y);
form1.caption:=inttostr(coord.y);
with Coord do
if (Y<1) or (X<1) or (X>Columns.Count) then Exit;
CurRec:=DataLink.ActiveRecord;
DataLink.ActiveRecord:=Coord.Y-1;
Edit1.Text:=Columns[Coord.X-1].Field.AsString;
DataLink.ActiveRecord:=CurRec;
end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c