Горит заказ!!! Помогите!!

← →
QWest (2002-05-22 16:15) [0]

Такая пробла:есть компонет - RXDBGrid. Надо, чтоб при двойном щелчке на одной из ячеек этого грида появлялась форма,на которой есть текстовое поле содержащее значение ячейки, по которой щелкнули....
Если что непонятно в вопросе - обращайтесь....
Заранее благодарен....

← →
Song (2002-05-22 16:32) [1]

И чего сложного? onClick ---> по MouseToCell() определяете ячейку на которой клик... --> загружаете её значение в форму.

← →
QWest (2002-05-22 16:51) [2]

А если надо двойной щелчок (onСellClick уже занято)?

← →
QWest (2002-05-22 16:53) [3]

Уважаемый Song, если мона, примерчик напишите, пожалуйста

← →
Georg (2002-05-22 16:56) [4]

Так на двойной щелчок ячейка должна быть уже выделена и можно просто получить значение из актульной ячейки - (столбец Grid.Col, строка Grid.Row)

← →
QWest (2002-05-22 17:09) [5]

если возможно, то хотелось бы все таки готовый текс - или пример.

← →
Georg (2002-05-22 17:21) [6]

на OnDblClick пишешь:

Form1.Edit1.Text := Grid1.Cells[Grid1.Col,Grid1.Row]

где Form1 твоя форма
Edit1 текстовое поле
Grid1 грид, по которому кликнули (он же Sender в процедуре onDblClick)

← →
QWest (2002-05-22 17:28) [7]

Не, вы не поняли вопрос: вопервых "надо двойной щелчок (onСellClick уже занято)", а вовторых нужно, чтоб он реагировал не на одну, а на любую из ячеек....

← →
MBo (2002-05-22 17:30) [8]

var
Acolumn:TColumn;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
AColumn:=Column;//запомним
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
label1.caption:=acolumn.Field.AsString;
end;

← →
Georg (2002-05-22 17:33) [9]

onDblClick - это и есть двойной щелчок по гриду, а Grid1.Col и Grid1.Row возвращают актуальную (по которой кликнули) ячейку.

← →
QWest (2002-05-23 09:28) [10]

var

" Acolumn:TColumn;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
AColumn:=Column;//запомним
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
label1.caption:=acolumn.Field.AsString;
end;"
А вот здесь я вообще ничего не понял...

← →
MBo (2002-05-23 09:30) [11]

а ты попробовал?

← →
QWest (2002-05-23 09:30) [12]

Щас этим и занимаюсь...

← →
QWest (2002-05-23 09:45) [13]

Мне понравилось, как работает ваш код (надо будет взять на вооружение), но при попытке изменить Lable1 Ha Form2.Edit.Text работать перестал...

← →
MBo (2002-05-23 09:47) [14]

???
а простое присвоение там же
Form2.Edit.Text:="ww";
работает?

← →
QWest (2002-05-23 09:50) [15]

Щас попробую...

← →
QWest (2002-05-23 09:54) [16]

Да, рпекрасно работает...

← →
MBo (2002-05-23 09:57) [17]

ну сделай сначала
s:=acolumn.Field.AsString;
потом
Form2.Edit.Text:=S;
хотя странно...

← →
QWest (2002-05-23 09:58) [18]

Извиняюсь за причиненные беспокойства, всё работает, ошибка была у меня....
Но все-таки, я не понял как он работает (а хотелось бы)...

← →
MBo (2002-05-23 10:15) [19]

так как по dblclick не передается колонка, записываем ее при срабатывании CellClick. Далее используем ее свойство Field, относящееся к текущей записи dataset.(т.е. формально - строке dbgrid)

← →
QWest (2002-05-23 10:23) [20]

Все, понял. Большое спасибо....

Горит заказ!!! Помогите!! Найти похожие ветки