Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Runtime error 216 at 00406AEB :-(( [Delphi, Windows]

Delphi5.01 © (2004-04-09 21:18:00)
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?

Delphi5.01 (2004-04-10 14:20:00) [1]
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

SPeller (2004-04-10 11:39:00) [2]
Внимательнее! :) Ты уже ближе к истине.

Delphi5.01 (2004-04-10 11:23:00) [3]
По просьбе Владимир Кладова, пишу русскими буквами :-)
Так вот прочитал я, но это у меня другая проблема, у меня она возникает не при использовании Sender-а, а при обыкновенном присваивании.
Даже после изменения кода:

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

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

Delphi5.01 (2004-04-10 08:29:00) [4]
Da no ia perechital FAQ, daje na printere napechatal okolo 11 listov poluchilos. Nu ladno esli tam napisano znachit i sam naidu :-)))))

SPeller (2004-04-10 08:07:00) [5]

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

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

Gandalf (2004-04-09 21:43:00) [6]
А вот ты и попался любопытный! RTFM! FAQ! И не скажу тебе номер ответа в ЧаВо - чтоб все прочитал...

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »