On Mon, 16 Apr 2007 21:35:32 +0200
Martin Schreiber <[EMAIL PROTECTED]> wrote:
> On Monday 16 April 2007 19.17, Mattias Gaertner wrote:
> > On Mon, 16 Apr 2007 14:56:01 +0200
> >
> > > > Does this mean during streaming Assigned(OnClick) is true?
> > >
> > > Yes.
> >
> > But then you need "if [csReading,csWriting]*ComponentState=[] then
> > ", don't you?
> >
>
> For events which are triggered while streaming only. I use
> "if not (csdesigning in componentstate) then".
> The MSEgui events are all protected by tmsecomponent.canevent anyway:
> "
> function tmsecomponent.canevent(const event: tmethod): boolean;
> begin
> result:= (event.code <> nil) and (event.data <> nil) and
> (componentstate * [csloading,csdesigning,csdestroying] =
> []); end;
> "
Yes, I thought so. We can't do that in Lazarus for Delphi compatibility.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
