Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизУважаемые как по 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c