Создание новой формы по клику на стору в DBGrid

[insense]

может этот вопрос уже обсуждался, но всё же,

столкнулся с проблемой:
бд подключена к DBGrid, DBGrid отображена в Form1, необходимо чтобы по клику на строку из таблицы открывалась Form2...
как это реализовать??!

и каким образом сделать так чтобы на Form2 в бд-едитах отображалась вся инфа строки из бд на которую я кликнул...

надеюсь на вашу помощь
и заранее благодарен!

[alexprey]

передавать в переменнуй нужную инфу, и при создании формы её грузить. Тогда Создание второй формы, надо описывать в самом клике.

Application.CreateForm(TForm2,Form2);
Form2.Visible:= true;

А в клоусе второй формы соответственно уничтожать

Destroy;

[insense]

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

передавать в переменнуй нужную инфу, и при создании формы её грузить. Тогда Создание второй формы, надо описывать в самом клике.

Application.CreateForm(TForm2,Form2);
Form2.Visible:= true;

А в клоусе второй формы соответственно уничтожать

Destroy;

вторая форма уже создана...
клика на DBGrid нет...
т.е. кликая на DBGrid ничего не происходит (запущено приложение или нет)...
при нажатие на строку из DBGrid форма должна открываться (а не создаваться)

[alexprey]

В принципе разницы не какой нет. Ну тогда не создавай форму. Обрабатывай переменную с инфой в onActivate вроде, а в клике пишите

Form2.Close;
Form2.Visible:= true;

[insense]

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

В принципе разницы не какой нет. Ну тогда не создавай форму. Обрабатывай переменную с инфой в onActivate вроде, а в клике пишите

Form2.Close;
Form2.Visible:= true;

мне несовсем понятно в каком клике?!
ведь DBGrid не баттон, и кликом на нее процедуру не создашь..
плюс форма должна открываться кликом на строку в таблице, а не на DBGrid
как будет выглядеть сама процедура?

если возможно напишите примерный код начиная с
procedure

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

очень очень нужно!!!!
полииииз

[Stilet]

Создаешь форму, на нее кидаешь DB компоненты, связываешь их с тем же DataSource что и грид.
В клике эту форму показываешь Форма.ShowModal; DB компоненты, на ней сами подхватят информацию из записи. на которой случится переход по клику мышки

[Dark_Spirit]

 procedure TForm1.DBGrid1DblClick (sender:TObject);
  begin
    form2:=Tform2.create(self);
    form2.showmodal;
  end;

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

на событие формы form2, onClose можно повесить такой код:

 action:=cafree;

[pu4koff]

Я обычно это вешал на события OnAfterInsert и OnAfterEdit соответствующего TDataSet (TTable, TQuery,...).
т.е. код, приведенный Dark_Spirit'ом, помещаем в обработчики этих событий.
Что даёт именно такая связка?
1) При использовании DBNavigator'a не нужно совершать никаких телодвижений. При создании/редактировании записи форма появится "автоматически";
2) Оставляем в DBGrid'e возможность редактирования, но устанавливаем выделение всей строки. Двойной клик по строке приведет к редактированию записи, т.е. вызовется все тот же OnAfterEdit и появится окошко.
3) При обработке OnDblClick нужно учитывать, что двойной клик можно совершить по пустому месту и тогда вылетит ошибка или будет непонятное поведение. Частный случай: двойной клик при пустом наборе данных. Редактировать нечего, а будет попытка редактирования записи. В моём подходе этого недостатка нет.

[insense]

Огромное всем спасибо за помощь...
Stilet, Dark Spirit всё отлично работает...
2 Пучков: идею я понял, это действительно удобней, но повесил процедуры на указаные события и форма не открывается
буду признателен более глубоким подробностям

и вопрос оффтоп:
как можно очистить все dbeditы, dbcomboboxы, dbmemo, короче все поля на форме, нажатием на баттон?
т.е. кнопка на одной форме открывает 2ую форму с пустыми компонентами...

[Dark_Spirit]

3) При обработке OnDblClick нужно учитывать, что двойной клик можно совершить по пустому месту и тогда вылетит ошибка или будет непонятное поведение. Частный случай: двойной клик при пустом наборе данных. Редактировать нечего, а будет попытка редактирования записи. В моём подходе этого недостатка нет.

это можно избежать если перед отображением формы встроить вот такую проверку:

 procedure TForm1.DBGrid1DblClick (sender:TObject);
  begin
   
    if not (dbgrid1.datasourse.dataset.isempty)
     then
      begin
  
       form2:=Tform2.create(self);
       form2.showmodal;
     end;
  end;

это поможет избежать ошибки для пустого набора.