DELPHI AREA Forum

Hello,

Maybe you can help me. Why when I close my application I have this error
" Invalid pointer operation"

Thanks


In my events CloseQuery I have

Code: Select all

const
  Msg = 'Deseja fechar o Best Teacher?';
begin
  If not Agente.MovingToSync then
     Begin
       If Not Agente.Showing Then Agente.Show;
       Agente.MsgDlg.Title := 'Assistente';
       CanClose := Agente.MessageDlg(Msg, mtWarning, [mbYes, mbNo], 0) = mrYes;
       if CanClose and Agente.Showing and (Agente.DockSite = nil) then
          Begin
            Hide;
            Agente.Visible := False;
          End;
     End
  Else
    CanClose := False;
end

I checked your CloseQuery code, and it is correct. You should look for the problem somewhere else.

Hello

Strange that the error only occurs when the assistent is visible and it occurs in the unit oabaloon at this line : inherited Destroy;

destructor TAssistantBalloon.Destroy;
begin
FAnchor := nil;
HTopicBtns.Free;
GTopicBtns.Free;
FOptions.Free;
FMsgDlgOptions.Free;
FTipsDlgOptions.Free;
FGuideDlgOptions.Free;
FHintDlgOptions.Free;
inherited Destroy;
end;

Thanks

Hello

I found the error, I was using a component named XPMenu that was having some conflicts with your component, I had to take it off.