DevExpress cxGridView Daten auslesen

[Thomas Horstmann]

Hallo,

Wurde ApplicationMessage richtig auf die Form verwiesen?
In meinem Fall auf "TStart_Form"?

procedure TStart_Form.ApplicationMessage Hier mal ein paar Auszug aus meiner "Start_Form".

Delphi-Quellcode:

unit Start;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxSkinsCore ;

type
  TStart_Form = class(TForm)
    XPManifest: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
    procedure QuitApplication ;
    procedure ApplicationMessage
    ( var Msg     : TMsg    ;
      var Handled : Boolean ) ;
  end;

var
  Start_Form: TStart_Form;

implementation

uses
...
// *** Start FormCreate/Close/KeyDown ******************************************
// *****************************************************************************
procedure TStart_Form.FormCreate(Sender: TObject);
begin
{ Messages }
Application.OnMessage := ApplicationMessage ;
end ;
// *** Ende FormCreate/Close/KeyDown *******************************************
// *****************************************************************************
...
// *** Start ApplicationMessage ************************************************
// *****************************************************************************
procedure TStart_Form.ApplicationMessage
( var Msg     : TMsg    ;
  var Handled : Boolean ) ;
var
iDataSet : TDataSet ;
begin
{ Grid }
if Msg.Message = WM_GRIDPOSTMESSAGE then
  begin
  TcxGridDBTableView(Msg.wParam).DataController.DataSet.Post ;
  end ;
end ;
// *** Ende ApplicationMessage ************************************************
// *****************************************************************************
...

Viele Grüße