Помогите пожалйуста! Я только начала изучать Delphi в институте и много еще не знаю. У меня маленькая база данных где отображены фамилия и имя в компоненте DBGrid. Есть панель DBNavigator, сделала поиск. Тут все работает, добавляет, удаляет и так далее. Вот я хочу, чтобы при нажатии на какую - либо фамилию в DBGride открывалась форма с полной информацией о данном человеке. Как мне это сделать? Вот код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBClient, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
ComCtrls;
type
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ClientDataSet1.Locate(
'Фамилия;Имя',
VarArrayOf([Edit1.Text,Edit2.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('Запись не найдена');
end;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clFuchsia;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;
end.
