Sometimes you just cannot put it down!
Cliff
Earlier message 75 lines
-----Original Message-----
From: Michael A. Hess
To: Lazarus-List
Date: Wednesday, July 07, 1999 10:57 PM
Subject: [lazarus] Yes I didn't stop yet
>Shane I made a test program using Dispatch. Don't try and use it yet it
>appears to have problems. If I only define one procedure with a message
>it works fine. If I try to define a second one the compiler panics with
>a 9999 error.
>
>For the FPC guys here is what blows. This gives and internal error 9999
>and indicates it occurs at the 'end;' statement of the class definition.
>Now if comment out the second message and anything to do with DoClick2
>the program compiles and works correctly.
>
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++===
>
>program msgtest;
>
>{$mode delphi}
>
>uses sysutils;
>
>type
> TMyObject = Class (Tobject)
> protected
> procedure DoClick(var msg); message 3;
> procedure DoClick2(var msg); message 4;
> public
> procedure Test;
> end;
>
>procedure TMyObject.DoClick(var msg);
>begin
> writeln ('Called DoClick - msg = ' + inttostr(longint(msg)));
>end;
>
>procedure TMyObject.DoClick2(var msg);
>begin
> writeln ('Called DoClick2 = msg = ' + inttostr(longint(msg)));
>end;
>
>procedure TMyObject.Test;
>var
> msg : integer;
>begin
> msg := 3;
> Dispatch(msg);
>
> msg := 4;
> Dispatch(msg);
>end;
>
>var
> MyObject : TMyObject;
>
>begin
> MyObject:=TMyObject.Create;
> MyObject.Test;
> MyObject.Free;
>end.
>
>--
>==== Programming my first best destiny! ====
>
>Michael A. Hess Miracle Concepts, Inc.
> http://www.miraclec.com
>
>_________________________________________________________________
> To unsubscribe: mail with
> "unsubscribe" as the Subject
> archives at http://www.miraclec.com/list_archives/lazarus
>