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

OnMouseMove   Найти похожие ветки 

← →
Diamond   (2006-03-22 16:52) [0]

Народ, помогите плиз с таким вопросом:
добавил к основной форме еще одну, на которой происходит визуализация всего того, что происходит на первой. перестал нормально работать метод OnMouseMove. По отдельности(как 2 разных проекта) все работает отлично, а вместе - никак... В чем может быть причина баги?

---

← →
Dmitrij_K   (2006-03-22 16:54) [1]

Может для начала код напишешь?

---

← →
Diamond   (2006-03-22 17:13) [2]

procedure Tmain.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 mx:= X; my:= Y;
 main.Label1.Caption:= IntToStr(mx)+" "+IntToStr(my);
 if ClOnNode<>-1 then   begin
   if ((mx)>0)and((my)>0)and
   ((mx+2*r)< PaintBox1.Width)and((my+2*r)< PaintBox1.Height) then
   begin
   UpdateColors;
   myg.MoveNode(PaintBox1.Canvas, mx, my, ClOnNode);
   end;
 end;
end;

---

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

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



Память: 0.45 MB
Время: 0.025 c