Помогаю.
Данная функция будет исполняться при КАЖДОМ перемещении мыши в окне.
Оно вам надо?
Лучше так
Код:
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,int Y)
{
if (fDrawed == false)
{
this->DrawFigure (Image1->Canvas);
fDrawed = true;
}
}
Переменная fDrawed - поле класса TForm1 - означает факт прорисовки картинки.
Функция DrawFigure - метод класса TForm1 - выполняет прорисовку картинки на объект типа TCanvas, указатель на который передаётся параметром функции
