vladman
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
dxmdaset, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, dxSkinsCore, dxSkinMcSkin, dxSkinscxPCPainter;
const
MEMDATA1_UPDATE = WM_USER + 100;
type
TForm1 = class(TForm)
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
dxMemData1: TdxMemData;
dxMemData2: TdxMemData;
dxMemData2ID: TAutoIncField;
dxMemData2IDk: TIntegerField;
dxMemData2Data: TStringField;
dxMemData1ID: TAutoIncField;
dxMemData1Name: TStringField;
dxMemData1Modified: TDateTimeField;
DataSource1: TDataSource;
DataSource2: TDataSource;
cxGrid1DBTableView1RecId: TcxGridDBColumn;
cxGrid1DBTableView1ID: TcxGridDBColumn;
cxGrid1DBTableView1Name: TcxGridDBColumn;
cxGrid1DBTableView1Modified: TcxGridDBColumn;
cxGrid1Level2: TcxGridLevel;
cxGrid1DBTableView2: TcxGridDBTableView;
cxGrid1DBTableView2RecId: TcxGridDBColumn;
cxGrid1DBTableView2ID: TcxGridDBColumn;
cxGrid1DBTableView2IDk: TcxGridDBColumn;
cxGrid1DBTableView2Data: TcxGridDBColumn;
procedure dxMemData2AfterPost(DataSet: TDataSet);
private
procedure MemData1Update(var Msg: TMessage); message MEMDATA1_UPDATE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.dxMemData2AfterPost(DataSet: TDataSet);
begin
PostMessage(Handle, MEMDATA1_UPDATE, 0, 0);
end;
procedure TForm1.MemData1Update(var Msg: TMessage);
begin
dxMemData1.Edit;
dxMemData1.FieldByName('Modified').Value:=now;
dxMemData1.Post;
end;
end.
|
