Runtime error 216 at 00406AEB :-((

← →
Delphi5.01 © (2004-04-09 21:18) [0]

Dobroe vrema sutok! (dla nekotorih ne ochen dobroe, naprimer dla mena:-()
Vot uje kakoi den ne mogu razobrat chto za problema, ne ekrane poiavlaetsa oshibka:
---------------------------
Error
---------------------------
Runtime error 216 at 00406AEB
---------------------------
OK
---------------------------
Proveri vochom i chto viju, oshibka voznikaet pri obiknovennom prisvaivanii!!! :-(
...
FActiveButton: Integer;
...
Panel.OnMouseMove:=TOnMouse(MakeMethod(nil,@fMouseMove));
...
procedure fMouseMove(Sender: PControl; var Mouse: TMouseEventData);
var i: Integer;
begin
FActiveButton:=-1;
FMMove:=True;
for i:=0 to RGNSCount-1 do
if PtInRegion(RGNS[i],Mouse.X,Mouse.Y) then
begin
FActiveButton:=i;
Break;
end;
fPaint(Sender,Panel.Canvas.Handle);
end;
...

oshibka proishodit pri "FActiveButton:=-1;".
V chom mojet zalkluchatsa oshibka?

← →
Gandalf © (2004-04-09 21:43) [1]

А вот ты и попался любопытный! RTFM! FAQ! И не скажу тебе номер ответа в ЧаВо - чтоб все прочитал...

ЗЫ: Кто не в курсе - теперь у SPeller"а - комод, так что советую всем перечитать FAQ.

← →
SPeller © (2004-04-10 08:07) [2]

> ЗЫ: Кто не в курсе - теперь у SPeller"а - комод, так что
> советую всем перечитать FAQ.

Угу (злобно) :-))))))

← →
Delphi5.01 © (2004-04-10 08:29) [3]

Da no ia perechital FAQ, daje na printere napechatal okolo 11 listov poluchilos. Nu ladno esli tam napisano znachit i sam naidu :-)))))

← →
Delphi5.01 © (2004-04-10 11:23) [4]

По просьбе Владимир Кладова, пишу русскими буквами :-)
Так вот прочитал я, но это у меня другая проблема, у меня она возникает не при использовании Sender-а, а при обыкновенном присваивании.
Даже после изменения кода:

procedure fMouseMove(Dummy:Pointer; Sender: PControl; var Mouse: TMouseEventData);

Ошибка та же! :-((

Внимательнее! :) Ты уже ближе к истине.

Da cho prikalivaetes? :-) ia po drugomu napisal, ia v forme napisal proceudre mlin(Sender: PControl; var Mouse: TMouseEventData)
Nu i potom pramo prisvoil!
Tak chto tema zakrita, vsem spasibo

Runtime error 216 at 00406AEB :-(( Найти похожие ветки