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
