Разработка приложений в системе Delphi. Шейкер Т.Д. - 33 стр.

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
if Shift= [ssCtrl] then Label1.Caption:='Окружность' else
  begin
   if (xShape1.Width div 2) and (y< Shape1.Height div 2)
    then Label1.Caption:='Первая четверть';
   if (x Shape1.Height div 2)
    then Label1.Caption:='Третья четверть';
   if (x>Shape1.Width div 2) and (y> Shape1.Height div 2)
    then Label1.Caption:='Четвёртая четверть';
  end;
end;

    События OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp связаны
с вращением колеса мыши. При вращении колеса мыши вперед и назад
генерируются      соответственно      события      OnMouseWheelDown   и
OnMouseWheelUp. В процессе вращения колёсика при расположении указателя
мыши над визуальным компонентом непрерывно вырабатывается событие
OnMouseWheel.
    Событие OnEnter – получение компонентом фокуса ввода. При потере
фокуса ввода генерируется событие OnExit. Эти события не возникают при
переключении между формами и приложениями. Поместим на форму редактор
Edit и метку Label, для которой в свойстве Visible установим значение
false. При получении компонентой Edit фокуса ввода будем выводить метку
на экран, а при потере фокуса – делать её невидимой.
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Label2.Visible:=true;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
Label2.Visible:=false;
end;

    При использовании клавиатуры генерируются события OnKeyDown
OnKeyPress, OnKeyUp. Событие OnKeyDown происходит при нажатии любой
клавиши, когда элемент находится в фокусе ввода. При отпускании нажатой


                                      33