|
Событие
|
Описание
|
|
OnActivate
|
Возникает после того, как форма становится активной — при первоначальном запуске приложения или когда форма после потери фокуса при перемещении фокуса к другой форме того же приложения вновь получает фокус.
|
|
OnClick
|
Возникает, когда пользователь щелкает левой кнопкой мыши по форме. Появляется после события OnMouseDown. Событие будет отправлено приложению лишь после того, как пользователь отпустит кнопку мыши.
|
|
OnClose
|
Возникает непосредственно перед закрытием формы, после события OnCloseQuery.
|
|
OnCloseQuery
|
Возникает до закрытия формы перед событием OnClose. В обработчике этого события можно на основании действий пользователя разрешить или отменить закрытие формы. Обработчику события передается параметр CanClose типа Boolean. Чтобы отменить закрытие формы свойству CanClose следует присвоить значение False. Значением по умолчанию является True — форма будет закрыта.
|
|
OnCreate
|
Возникает всего один раз в момент создания формы. Предшествует событиям OnShow и OnActivate.
|
|
OnDeactivate
|
Возникает при деактивации формы — при потере фокуса, когда клиент переключается на другую форму того же приложения.
|
|
OnDblClick
|
Возникает, когда пользователь дважды щелкает левой кнопкой мыши по форме. В этом случае порядок появления событий следующий:
· OnMouseDown
· OnClick
· OnMouseUp
· OnDblClick
· OnMouseDown
· OnMouseUp.
Событие будет отправлено приложению лишь после того, как пользователь второй раз отпустит кнопку мыши. |
|
OnKeyDown
|
Возникает при нажатии пользователем на клавиатуре любой клавиши, включая ту, которая не вводит никаких символов (Ctrl, Shift, Alt и т.д.). Предшествует событию OnKeyPress.
|
|
OnKeyPress
|
Возникает при нажатии пользователем на клавиатуре клавиши, которая позволяет ввести отображаемый символ. Происходит сразу после OnKeyDown.
|
|
OnKeyUp
|
Возникает, когда пользователь отпускает нажатую клавишу, включая ту, которая не вводит никаких символов (Ctrl, Shift, Alt и т.д.). Происходит после событий OnKeyDown и OnKeyPress.
|
|
OnMouseDown
|
Возникает, когда пользователь нажимает на форме любую кнопку мыши. Предшествует событию OnClick.
|
|
OnMouseEnter
|
Событие происходит, когда пользователь переводит указатель мыши на поверхность формы — перемещая его с другого компонента формы или из-за пределов формы.
|
|
OnMouseLeave
|
Возникает, когда указатель мыши покидает форму.
|
|
OnMouseMove
|
Возникает, когда указатель мыши перемещается на форме.
|
|
OnMouseUp
|
Событие возникает, когда пользователь нажимает любую кнопку мыши, а потом ее отпускает. Перед этим могут происходить все сопутствующие события.
|
|
OnMouseWeel
|
Событие возникает, когда пользователь вращает колесо мыши.
|
|
OnMouseWeelDown
|
Событие возникает, когда пользователь вращает колесо мыши вниз.
|
|
OnMouseWeelUp
|
Событие возникает, когда пользователь вращает колесо мыши вверх.
|
|
OnPaint
|
Возникает при прорисовке формы, когда размеры формы увеличиваются.
|
|
OnResize
|
Возникает при любом изменении размеров формы как в сторону увеличения, так и в сторону уменьшения.
|
|
OnShow
|
Возникает при начальной загрузке формы перед событием OnActivate, а также в случае, когда форма становится видимой (свойству Visible присваивается значение True).
|
TForm1.BExitClick(Sender: TObject); { Application->Terminate(); }
TForm1::BHeightClick(TObject *Sender){ Height = Height + 10;}
void __fastcallTForm1::BWidthClick(TObject *Sender){ Width = Width + 10;}
TForm1::BSizeClick(TObject *Sender){ Height = 500; Width = 700;}
TForm1.BXMinusClick(Sender: TObject); Left := Left - 10;procedureTForm1.BXPlusClick(Sender: TObject);
begin Left := Left + 10;
end;
procedureTForm1.BYMinusClick(Sender: TObject);
begin Top := Top - 10;
end;
procedureTForm1.BYPlusClick(Sender: TObject);
begin Top := Top + 10;
end;
TForm1::BXMinusClick(TObject *Sender){ Left = Left - 10;}
void __fastcallTForm1::BXPlusClick(TObject *Sender){ Left = Left + 10;}
void __fastcallTForm1::BYMinusClick(TObject *Sender){ Top = Top - 10;}
void __fastcallTForm1::BYPlusClick(TObject *Sender){ Top = Top + 10;}
TForm1.OpacityPlusClick(Sender: TObject); if (AlphaBlendValue <= 245) then AlphaBlendValue := AlphaBlendValue + 10;TForm1.OpacityMinusClick(Sender: TObject); if (AlphaBlendValue >= 10) then AlphaBlendValue := AlphaBlendValue - 10;
void __fastcallTForm1::OpacityPlusClick(TObject *Sender)
{ if (AlphaBlendValue <= 245) AlphaBlendValue = AlphaBlendValue + 10;}
TForm1::OpacityMinusClick(TObject *Sender){ if (AlphaBlendValue >= 10) AlphaBlendValue = AlphaBlendValue - 10;}
Запустите на выполнение Delphi или C++Builder. Создайте новый проект, выбрав в меню File | New | VCL Forms Application – Delphi (File | New | VCL Forms Application – C++Builder). Появится форма нового проекта. Щелкните мышью по новой пустой форме.
Установите для главной формы следующие значения свойств:
Terminate() объекта Application:
Запустите на выполнение Delphi XE3. Создайте новый проект, выбрав в меню File | New | VCL Forms Application — Delphi. Появится форма нового проекта. Щелкните мышью по новой пустой форме.
Запустите на выполнение пустую форму, щелкнув по кнопке 
или нажав клавиши Shift+Ctrl+F9. На экране появится пустая форма, содержащая только заголовочную строку. Закройте форму, щелкнув мышью по кнопке закрытия в заголовке формы 
, щелкнув правой кнопкой мыши по заголовку формы и выбрав в появившемся контекстном меню строку Закрытьили нажав клавиши Alt+F4.
В окне Object Inspector отображаются свойства и события формы.
в заголовке формы. Можно также закрыть форму программным способом, используя метод формы Close().
Terminate() объекта Application:
Свойство Iconпозволяет задать для формы конкретную пиктограмму, помещаемую в левый верхний угол заголовка формы. Если это свойство не задано, то у формы присутствует иконка по умолчанию.
. Появится окно изменения изображения: