为何执行两次？？？ ( 积分: 50 )

TMyInplaceEdit = class(TInplaceEdit)
    private
        FOnEditExit: TNotifyEvent;
        procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS;
         //procedure WMKillFocus(var Msg: TCMExit); message CM_EXIT;

    protected
        property OnEditExit: TNotifyEvent read FOnEditExit write FOnEditExit;
    end;



    T8583Grid=class(Tstringgrid)
    private
        FOnCellEditExit:TNotifyEvent;
        procedure celleditexit(Sender: TObject);
    protected
        function CreateEditor: TInplaceEdit; override;

    public
        constructor Create(AOwner: TComponent); override;
    end;

{ T8583Grid }

procedure T8583Grid.celleditexit(Sender: TObject);
begin
    showmessage('****');
end;

constructor T8583Grid.Create(AOwner: TComponent);
begin
  inherited;
   FOnCellEditExit:=self.celleditexit;
  self.Options:=self.Options+[goEditing];

end;

function T8583Grid.CreateEditor: TInplaceEdit;
begin
  Result := TMyInplaceEdit.Create(Self);
  TMyInplaceEdit(Result).OnEditExit := FOnCellEditExit;

end;
                       
{ TMyInplaceEdit }

procedure TMyInplaceEdit.WMKillFocus(var Msg: TWMKillFocus);
begin
  if Assigned(FOnEditExit)  then
    FOnEditExit(Self);  
  inherited;  
  
end;