«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

—обыти€ мыши дл€ визуальных компонентов

Ќа сегодн€шний день мышь, нар€ду с клавиатурой, €вл€етс€ одним из наиболее широко распространенных технических средств, позвол€ющих пользователю управл€ть компьютером. Ёлементы управлени€ могут обрабатывать довольно большое количество событий мыши.

ƒл€ визуальных компонентов Delphi определены следующие основные событи€, св€занные с мышью:

- OnClick Ц щелчок мыши по компоненту;
- OnDblClick Ц двойной щелчок мыши по компоненту;
- OnMouseDown Ц нажатие кнопки мыши над компонентом;
- OnMouseMove Ц перемещение указател€ мыши над компонентом;
- OnMouseUp Ц отпускание нажатой кнопки мыши;
- OnMouseActivate Ц щелчок мыши по элементу управлени€, когда родительска€ форма, на которой он размещен, неактивна;
- OnMouseEnter Ц вход указател€ мыши в пределы элемента управлени€;
- OnMouseLeave Ц выход указател€ мыши за пределы элемента управлени€.

–ассмотрим следующий пример. ƒл€ демонстрации обработки событий вз€та форма, на которой размещены две кнопки BitBtn с заголовками ќ  и Close. Ќа форме также находитс€ метка Label.  нопка Close будет закрывать приложение; кнопка ќ  будет реагировать на событи€ OnClick (кнопка случайным образом переместитс€ на форме) и OnMouseMove (в тексте метки отобраз€тс€ текущие координаты верхнего левого угла кнопки). ћетка Label1 будет реагировать на событи€ OnMouseDown (метка изменит свой шрифт на полужирный), OnMouseUp (форма изменит цвет своего фона на желтый) и OnDblClick (кнопка ќ  вернетс€ в начальную позицию).

—ледует отметить, что компоненты обрабатывают событи€ мыши только тогда, когда указатель находитс€ над ними. ƒл€ создани€ обработчиков событий следует выбрать соответствующий элемент на форме и в »нспекторе объектов на странице Events активизировать мышью требуемое событие. «атем в автоматически сгенерированном обработчике событи€ написать программный код. Ќапример, выбрав кнопку ќ , перейти в »нспектор объектов и два раза щелкнуть левой кнопкой мыши в поле справа от событи€ OnClick, после чего внести в обработчик следующие строки:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

// »нициализаци€ генератора псевдослучайных чисел

Randomize;

BitBtn1.Top:= Random(Form1.ClientHeight Ц BitBtn1.Height);

BitBtn1.Left:= Random(Form1.ClientWidth Ц BitBtn1.Width);

end;

¬ представленном обработчике событи€ OnClick перва€ строка инициализирует генератор псевдослучайных чисел, втора€ строка случайным образом измен€ет вертикальную координату кнопки в пределах формы, а треть€ Ц горизонтальную.

ƒл€ событи€ OnMouseMove следует аналогичным образом создать обработчик, в котором мен€етс€ текст метки, отображающий текущие координаты кнопки:

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label1.Captions:= 'X=' + IntToStr(BitBtn1.Left) + '; Y=' + IntToStr(BitBtn1.Top);

end;

ѕутем выполнени€ аналогичных действий создаютс€ обработчики событий дл€ метки Label1. ќбработчик событи€ OnMouseDown измен€ет стиль шрифта метки и имеет такой вид:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Label1.Font.Style:= [fsBold];

end;

ќбработчик событи€ OnMouseUp метки Labell обеспечивает изменение цвета фона формы:

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Form1.Color: = clYellow;

end;

» наконец, следует создать обработчик двойного щелчка мышью (событие OnDblClick) по метке Label1:

procedure TForm1.Label1DblClick(Sender: TObject);

begin

BitBtn1.Top:= 72;

BitBtn1.Left:= 48;

end;

Ётот обработчик возвращает кнопку ќ  в первоначальную позицию.

 роме рассмотренных выше событий, компонент формы (класс TForm) и многострочный редактор RichEdit имеют еще три событи€, св€занных с мышью:

- OnMouseWheel Ц возникает при любом вращении колеса мыши;
- OnMouseWheelDown Ц генерируетс€ при нажатии колеса мыши;
- OnMouseWheelUp Ц происходит при отпускании колеса мыши.

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

‘отоальбом (продолжение) ћаркеры в электронных таблицах “ехнологи€ хранени€, поиска и сортировки информации в базах данных ¬изуальные компоненты Ѕазовые свойства элементов управлени€ —обыти€ клавиатуры дл€ визуальных компонентов –едакторы символьной информации  омпонент EDIT  омпонент LABELEDEDIT  омпонент MASKEDIT 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом