Скачать: CL | DM;

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);

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

---

← →
SPeller ©   (2004-04-10 11:39) [5]

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

---

← →
Delphi5.01 ©   (2004-04-10 14:20) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c