Урок 4. Что может сделать щелчок мыши

Давайте напишем простую программу, которая  будет нас звать на трудовые подвиги с утра.

Расположим на форме один компонент Label. И напишем обработчик  создания формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Caption := 'Форма приветствия';
   Label1.Caption := 'C началом трудового дня!';
   Label1.Font.Name := 'Times New Roman';
   Label1.Font.Size := 20;
   Label1.Font.Color := clBlue;
end;

Запустив приложение мы увидим простую форму текстом:

форма приветствия

Чтобы мы не делали надпись на форме не измениться. А хотелось бы продолжения напутствий... Закроем наше приложение и внесем в него следующие изменения.

Щелкнем мышью на компоненте Label, чтобы он оказался в фокусе. Открываем инспектор объектов, заходим на вкладку Events и выбираем событие OnMouseDown. Делаем двойной щелчок и записываем соответствующую процедуру.

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Label1.Font.Color := clRed;
   Label1.Caption := 'Выполним 8 часов за 6';
   Form1.Color := clWhite;
end;

В результате запустив наше приложение и получив уже знакомое напутствие, после щелчка мыши на тексте мы получаем новый лозунг:

И чтобы еще больше поднять настроение напишем обработчик отпускания клавиши мыши:

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Label1.Caption := 'Ура товарищи!!!';
end;

Теперь у нас получиться после отпускания кнопки мыши такая надпись:

форма приветствия 3

Постоянно нажимая на надпись  рабочий день пролетит быстро и не заметно.

выбор внешнего вида курсораА если Вы захотите чтобы ваш товарищ не скучал можете передать ему эту программу. А чтобы он догадался нажать кнопку мыши, когда под ней будет надпись, изменим внешний вид курсора.

Для этого выделив надпись Label1 в инспекторе объектов для свойства Cursor выбираем любой понравившийся нам курсор.

Он будет явно указывать нажать кнопку мыши.

Можно также сделать подсказку. Установим в инспекторе объектов свойство ShowHint равным TRUE и в свойство Hint запишем "Нажми здесь". Теперь чуть задержав мышь над надписью мы получим приглашение нажать.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>