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

UptoLike

Составители: 

клавиши возникает событие OnKeyUp. Если была нажата символьная клавиша,
то вслед за событием
OnKeyDown до события OnKeyUp генерируется событие
OnKeyPress. При удерживании клавиши нажатой, непрерывно генерируется
событие
OnKeyDown, событие OnKeyUp возникает однократно после
отпускания клавиши.
Обработка события
OnKeyPress выполняется для формирования реакции
на нажатую клавишу. Это событие имеет тип
TKeyPressEvent:
type TKeyPressEvent = procedure (Sender: TObject; var Key: Char);
Параметр Key содержит код ASCII нажатой клавиши, который может быть
проанализирован и при необходимости изменен. Если параметру
Key задать
значение ноль (#0), то это будет соответствовать отмене нажатия клавиши.
Обработчик события
OnKeyPress не реагирует на нажатие управляющих
клавиш, однако параметр
Key содержит код символа с учетом регистра,
который определяется состоянием клавиш Caps Lock и Shift.
В качестве примера создадим обработчик события
OnKeyPress редактора
Edit, запрещающий ввод знака минус:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '-' then Key:=#0;
end;
Для обработки управляющих клавиш, не имеющих ASCII-кодов (Shift,
Ctrl, Alt и др.), можно программно использовать события
OnKeyDown и
OnKeyUp типа TKeyEvents [10].
События
OnStartDrag, OnDragOver, OnDragDrop, OnEndDrag
используются для осуществления перетаскивания компонентов. Реализованная
в
Delphi технология drag-and-drop позволяет перемещать различные объекты,
например, элементы одного списка в другой. При этом используются два
элемента управления: источник и приемник. Источник содержит
перемещаемый объект, а приемникэлемент управления, на который
помещается элемент-источник. Разные варианты выполнения перетаскивания
мышью хорошо изложены в книге [10].
34
клавиши возникает событие OnKeyUp. Если была нажата символьная клавиша,
то вслед за событием OnKeyDown до события OnKeyUp генерируется событие
OnKeyPress. При удерживании клавиши нажатой, непрерывно генерируется
событие    OnKeyDown,     событие    OnKeyUp   возникает   однократно   после
отпускания клавиши.
   Обработка события OnKeyPress выполняется для формирования реакции
на нажатую клавишу. Это событие имеет тип TKeyPressEvent:
type TKeyPressEvent = procedure (Sender: TObject; var Key: Char);

   Параметр Key содержит код ASCII нажатой клавиши, который может быть
проанализирован и при необходимости изменен. Если параметру Key задать
значение ноль (#0), то это будет соответствовать отмене нажатия клавиши.
Обработчик события OnKeyPress не реагирует на нажатие управляющих
клавиш, однако параметр Key содержит код символа с учетом регистра,
который определяется состоянием клавиш Caps Lock и Shift.
   В качестве примера создадим обработчик события OnKeyPress редактора
Edit, запрещающий ввод знака минус:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '-' then Key:=#0;
end;
   Для обработки управляющих клавиш, не имеющих ASCII-кодов (Shift,
Ctrl, Alt и др.), можно программно использовать события OnKeyDown и
OnKeyUp типа TKeyEvents [10].
   События     OnStartDrag,         OnDragOver,   OnDragDrop,      OnEndDrag
используются для осуществления перетаскивания компонентов. Реализованная
в Delphi технология drag-and-drop позволяет перемещать различные объекты,
например, элементы одного списка в другой. При этом используются два
элемента    управления:    источник     и   приемник.   Источник    содержит
перемещаемый объект, а приемник – элемент управления, на который
помещается элемент-источник. Разные варианты выполнения перетаскивания
мышью хорошо изложены в книге [10].

                                       34