Тепер, коли ви маєте уявлення, яким чином все працює, давайте закінчимо розпочатий нами приклад, додавши код для малювання точок при пересувні ванні миші у вікні і для зупинки процесу в момент, коли користувач відпустить нарешті ліву кнопку миші. Отже, спочатку код для малювання. Додайте вже відомим вам способом обробник для події OnMouseMove. а в нього додайте такі рядки:
void __fastcall TForm1 :: OnMouseMove (TObject * Sender, TShiftState Shift,
Цей метод використовує прапор, який ми визначили раніше для вказівки, натиснута в даний момент кнопка миші чи ні. Якщо прапорець встановлений, то викликається метод Canvas-> LineTo. Цей метод малює лінію з поточної позиції в нову позицію миші і робить цю нову позицію поточної. Якщо ви пам'ятаєте, початкова позиція була визначена в нашому методі OnMouseDown. коли кнопка миші була натиснута в вікні.
І нарешті, останній метод, який повинен бути виконаний, це обробник події, коли кнопка миші відпускається. Цей метод повинен всього лише зняти (тобто встановити в FALSE) прапор, який показує, що кнопка миші натиснута. Оскільки єдиною можливою функцією залишиться просто пересувні ня миші, це буде означати одночасно і закінчення процесу малювання точок.
Нижче наведено код для методу OnMouseUp. який ви повинні додати в обробник для події OnMouseUp (кнопка миші відпущена) в інспекторові об'єктів:
void __fastcall TForm1: OnMouseUp (TObject * Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)