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;

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