Кнопки, изменяющие вид указателя мышки
Поместим на форму еще четыре кнопки, которые будут задавать различные формы мышки.
Первую кнопку назовем btHandPoint. Пусть щелчок по этой кнопке задает вид указателя мышки crHandPoint. Свойство Caption зададим значением Ok, а над кнопкой на форме поместим метку, у которой в свойстве Caption будет значение «курсор crHandPoint».
Код кнопки будет следующий:
procedure TfmMyForm.btHandPointClick(Sender: TObject);
begin
Screen.Cursor := crHandPoint;
end;
Вторую кнопку назовем btMultiDrag Пусть щелчок по этой кнопке задает вид указателя мышки crHandPoint. Свойство Caption зададим значением Ok, а над кнопкой на форме поместим метку, у которой в свойстве Caption будет значение «курсор crMultiDrag». Составьте самостоятельно код кнопки:
procedure TfmMyForm.btMultiDragClick(Sender: TObject);
begin
end;
Третью кнопку назовем btHourGlass. Пусть щелчок по этой кнопке задает вид указателя мышки crHandPoint. Свойство Caption зададим значением Ok, а над кнопкой на форме поместим метку, у которой в свойстве Caption будет значение «курсор crHourGlass». Составьте самостоятельно код кнопки:
procedure TfmMyForm.btHourGlassClick(Sender: TObject);
begin
end;
Четвертую кнопку назовем btHelp. Пусть щелчок по этой кнопке задает вид указателя мышки crHelp. Свойство Caption зададим значением Ok, а над кнопкой на форме поместим метку, у которой в свойстве Caption будет значение «курсор crHelp». Составьте самостоятельно код кнопки:
procedure TfmMyForm.btHelpClick(Sender: TObject);
begin
end;
После всех преобразований форма примет следующий вид:
Приложение готово. Запустите его, исправьте ошибки, если они есть, сделайте дополнения, какие вам хочется.
Задания
Сделайте проект, описанный в пункте 4 настоящего занятия.