// 定义消息接收类
type
TMyMessageHandler = class(TBizMessageHandler)
private
FMemo:TMemo;
public
procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
var Handled: Boolean); override;
end;
implementation
procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
var Handled: Boolean);
begin
if AMessage is TMyMessage then
begin
FMemo.Lines.Add((AMessage as TMyMessage).msg);
Handled := True;
end;
end;
constructor TMyMessage.Create(AMsg: String);
begin
inherited Create(TMyMessage.Name);
FMsg := AMsg;
end;
static function TMyMessage.Name: String;
begin
Result := FMsg;
end;
然后在界面上 “存为草稿” (这个是数据库一个字段,表现类型为CheckBox) ,在它的OnChange中这样写:
procedure TSWSQNG.DataEdit1Change(Sender: TObject);
var
lMsg: TMyMessage;
begin
IF dsbDetail1.DataSet.FieldByName('CWCG').asString :='true' then
begin
// 发送消息
lMsg := TMyMessage.Create('true');
BizSys.GlobalContext.SendMessage(lMsg);
lMsg.Free;
end;
end;