Volk:=Помогите!

[Volk]

Поясни пожалуйсо, не въежаю что значит эта строчка?: Canvas.Pen.Mode+Canvas.Pen.Style+Canvas.Pen.Width И чё с не делать?   И ещё я попробовал, написал всё как ты говорил и получается что когда водиш то же квадрат или элипс на месте где водиш остаются разводы! То есть там где провёл там и остался от фигуры след! Чё делать?!?!
--------------------------------------------------------------------------------------------------------------------------------------------------
Зарание огромное спасибо!!!

[Oldy]

Чё делать?!?!

Читать Help.

[Volk]

Здравствуйте! Я рисую на Image1. Подскажите пожалуйсто кам мне сделать следующее:
Я нарисовал курсор, как мне сделать так чтоб при вождении мыши по форме вввиде курсора  был мой.
--------------------------------------------------
Заранее всем большое спасибо!!!

[Oldy]

В Delphi, в меню "Project" вызвать пункт "Resources". В появивщемся окне нажать правую кнопку и вызвать пункт всплывающего меню - "New"-> Cursor. В диалоге загрузки ресурса выбрать ваш курсор. Появится новый ресурс с именем по умолчанию "CURSOR_1".

Теперь в своей программе в самом начале описательной части нужно ввести следующее, например :

Код:

const
  crMyCursor = 1;

В FormCreate главной формы нужно добавить следующий код:

Код:

  Screen.Cursors[crMyCursor] := LoadCursor(hInstance, 'CURSOR_1');
  Image1.Cursor := crMyCursor;

Собственно все.

P.S.
Видоизмененный курсор будет только над Image, если нужно что-бы собственный курсор был над всем окном программы в строке "Image1.Cursor := crMyCursor" удалить "Image1."
See Also: Delphi -> Help -> TControl.Cursor