![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Получить активный элемент управления под курсором мышкиDelphi , ОС и Железо , Мышка и КурсорПолучить активный элемент управления под курсором мышки
Оформил: DeeCo { Sie konnen z.B diese Funktion in einer allgemein gultigen Prozedure aufrufen, die Sie dann allen betroffenen Ereignisse zuweisen. } { You may call this function in a global event procedure, linking as many components events to it as you need. } function FindControlAtPos: TWinControl; var Pt: TPoint; begin GetCursorPos(Pt); Result := FindControl(WindowFromPoint(Pt)); end; { (Beispiel) Hier die allgemein gultige Procedure fur OnMouseUp. Die Behandlung von OnClick bleibt dabei erhalten: die Funktionalitat aus OnMouseUp kommt dazu. } { (example) There's the global proc for the OnMouseUp event. Note: OnClick keeps working, so you can "add" the OnMouseUp facility to no cost. } procedure TForm1.GenericMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var TWC: TWinControl; begin TWC := FindControlAtPos; //what for a class ! Showmessage('Here we are: ' + TWC.ClassName); //Let it blink... TWC.Visible := False; Sleep(150); TWC.Visible := True; end; Привет! Вот перевод текста на русский язык: Это фрагмент кода на Delphi, который предназначен для поиска активного контроля под курсором мыши и выполнения некоторых действий с ним. Вот разбивка кода:
Внутри этой процедуры:
Автор предлагает использовать этот код как глобальный обработчик событий, позволяя прикрепить к нему одинаковые действия к множеству контролов без необходимости писать отдельные обработчики для каждого из них. Некоторые предложения:
В целом, этот код демонстрирует хороший уровень понимания модели программирования на основе событий Delphi и предоставляет полезный старт для строительства более сложных приложений с взаимодействием с мыши. Определение функции FindControlAtPos, которая возвращает активный элемент управления под курсором мышки. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Мышка и Курсор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |