Давайте напишем простую программу, которая будет нас звать на трудовые подвиги с утра.
Расположим на форме один компонент 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;
Теперь у нас получиться после отпускания кнопки мыши такая надпись:
Постоянно нажимая на надпись рабочий день пролетит быстро и не заметно.
А если Вы захотите чтобы ваш товарищ не скучал можете передать ему эту программу. А чтобы он догадался нажать кнопку мыши, когда под ней будет надпись, изменим внешний вид курсора.
Для этого выделив надпись Label1 в инспекторе объектов для свойства Cursor выбираем любой понравившийся нам курсор.
Он будет явно указывать нажать кнопку мыши.
Можно также сделать подсказку. Установим в инспекторе объектов свойство ShowHint равным TRUE и в свойство Hint запишем "Нажми здесь". Теперь чуть задержав мышь над надписью мы получим приглашение нажать.