DelphiSite

Главная страница > VCL > События > OnMouseUp

OnMouseUp

Применение Событие возникает при отпускании клавиши мыши над объектом
Синтаксис procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage('Mouse button up at X='+inttostr(x)+' Y='+inttostr(y));
end;
Параметры

Sender: TObject - ссылка на "кликнутый" объект

X,Y: Integer - координаты курсора относительно верхней левой точки объекта

Button: TMouseButton - кнопка мыши (mbLeft - левая, mbRight - правая, mbMiddle - центральная)

Shift: TShiftState - нажатые в данный момент управляющие кнопки

Сайт управляется системой uCoz