![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Событие OnMouseMove
TTfmExample - имя формы procedure TTfmExample.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var MyMouse:TMouse; begin Edit1.Text:=ColorToString(TfmExample.Canvas.Pixels [MyMouse.CursorPos.X,MyMouse.CursorPos.Y] ); |