| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnMouseMove
Diamond © (2006-03-22 16:52:00)Народ, помогите плиз с таким вопросом:
добавил к основной форме еще одну, на которой происходит визуализация всего того, что происходит на первой. перестал нормально работать метод OnMouseMove. По отдельности(как 2 разных проекта) все работает отлично, а вместе - никак... В чем может быть причина баги?
Diamond (2006-03-22 17:13:00) [1]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;
Dmitrij_K (2006-03-22 16:54:00) [2]Может для начала код напишешь?
| |
