[Sprinter_One]

Всем доброго времени суток! Помогите новичку! Ситуация такая: Создал БД в phpmyadmin, создал проект в dephi 7. Подцепился к базе через компоненты: "ADOConnection, ADOQuery, DataSourse и DBGrid". Всё работает, таблица отображается! НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРИ ДВОЙНОМ ЩЕЛЧКЕ НА ОПРЕДЕЛЁННУЮ ЯЧЕЙКУ ТАБЛИЦЫ DBGrid, ВЫВОДИЛАСЬ ДРУГАЯ ФОРМА!

[nixel]

Сообщение от Sprinter_One

Всем доброго времени суток! Помогите новичку! Ситуация такая: Создал БД в phpmyadmin, создал проект в dephi 7. Подцепился к базе через компоненты: "ADOConnection, ADOQuery, DataSourse и DBGrid". Всё работает, таблица отображается! НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРИ ДВОЙНОМ ЩЕЛЧКЕ НА ОПРЕДЕЛЁННУЮ ЯЧЕЙКУ ТАБЛИЦЫ DBGrid, ВЫВОДИЛАСЬ ДРУГАЯ ФОРМА!

эээ... Form2.Show?

Вы хоть конкретизируйте, что за форма (если это важно), как она должна выводится, по каким параметрам выбирается ОПРЕДЕЛЕННАЯ ЯЧЕЙКА (простите, не удержался), и тому подобное.

[Страдалецъ]

Обработайте событие OnCellClick. При щелчке по ячеке, автоматом будет установлен указатель в БД на запись, следовательно запись текущую в источнике вы получите, ну а уж определится с каким полем этой записи вы имеете дело поможет параметр события Column.

[Sprinter_One]

просто есть две формы, в первой таблица dbgrid....нужно чтобы при нажатии на определённую ячейку таблицы по двойному щелчку, на экран вылазила вторая форма!

[Sprinter_One]

Сообщение от Страдалецъ

Обработайте событие OnCellClick. При щелчке по ячеке, автоматом будет установлен указатель в БД на запись, следовательно запись текущую в источнике вы получите, ну а уж определится с каким полем этой записи вы имеете дело поможет параметр события Column.

OnCellClick - вариант, но там просто при нажатии! а надо по двойному щелчку! я так понимаю, что для этого подходит событие OnDblClick. но я сам код не могу реализовать!знаний не хватает у меня получается так, что при нажатии на любую ячейку, выскакивает вторая форма! а нужно с определённой ячейкой! Да, кстати, если несложно, то напишите пожалуйста код.

[Страдалецъ]

Через даблклик немножко иначе надо:

Код:

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
 if DBGrid1.SelectedField.FieldName = 'caption'
 then ShowMessage('Жмякнули дважды в поле caption');
end;

[Viajero]

в OnDblClick объект Column не передаётся, а тебе нужно его свойства проверять. В таком случае нужно использовать оба события. Т. к. OnClick просходит раньше, в нём нужно проверить поле на соответствие, а в OnDblClick вызывать форму.

Можно в случае крайней необходимости row и col проверять, но так как они protection надо писать свой класс
http://delphiworld.narod.ru/base/dbgrid_col_row2.html

ps: Cтрадалецъ, если по полю кликнули, это не значит что оно во всех случаях уже selected

[Страдалецъ]

ps: Cтрадалецъ, если по полю кликнули, это не значит что оно во всех случаях уже selected

Покажи на примере.

[Viajero]

Сообщение от Страдалецъ

Покажи на примере.

Не понял что именно. Тут же от конкретной задачи зависит. Например dgRowSelect может быть установлен. А параметр Column события OnCellClick всегда точно определит тот Field который нужен.

[Yurk@]

Мне кажется что в данном случаем какая-то конкретная ячейка грида по которой кликнули не имеет значения. Автору, скорее всего, нужно просто при OnDblClick открыть эту же запись в другой форме для редактирования и все

[Sprinter_One]

Всем спасибо!!!
Решил проблему так:
1) Объявил новый класс:

Код:

THackGrid = class(TDBGrid)
public
property Col;
property Row;
end;

2) В обработчике событий OnDblClick компонента DBGrid записал следующее:

Код:

procedure TForm1.dbgrd1DblClick(Sender: TObject);
begin
if (THackGrid(dbgrd1).Col=2) and (THackGrid(dbgrd1).Row=1) then
begin
Form2.show;
end;
end;

ВОТ КОД, НАДЕЮСЬ КОМУ-НИБУДЬ ПОМОЖЕТ:

Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
dbgrd1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure dbgrd1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

THackGrid = class(TDBGrid)
public
property Col;
property Row;
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.dbgrd1DblClick(Sender: TObject);
begin
if (THackGrid(dbgrd1).Col=2) and (THackGrid(dbgrd1).Row=1) then
begin
Form2.show;
end;
end;
end.

// Form2.show; - не забудте создать вторую форму

Bargest: не забываем оформлять код тегами!

[Viajero]

Сообщение от Yurk@

Автору, скорее всего, нужно просто при OnDblClick открыть эту же запись

Возможно не любую запись, потому что первый вариант, что предлагал Страдалецъ для ТС не подошёл.
http://www.delphisources.ru/forum/sh...71&postcount=3
Впрочем пусть ТС сначала пояснит, чтоже ему конкретно нужно.

[Sprinter_One]

Да кстати, вот ещё полезная ссылка http://delphicode.org/components/dbg...ct_dblclck.htm
Тему можно считать закрытой!