ÿþunit SelectLabel; interface uses WebCore, WebUI, WebCtrls, WebLabels; type TSelectableLabel = class(TLabel) protected function CreateElement: TElement; override; function DoMouseDown(Button: Integer; ShiftKey, CtrlKey, AltKey: Boolean; X,Y: Integer): Boolean; override; end; implementation { TSelectbleLabel } function TSelectableLabel.CreateElement: TElement; begin Result:=inherited CreateElement; Result.ForceDefaultCursor:=False; // This is the key end; function TSelectableLabel.DoMouseDown(Button: Integer; ShiftKey, CtrlKey, AltKey: Boolean; X,Y: Integer): Boolean; begin inherited DoMouseDown(Button,ShiftKey,CtrlKey,AltKey,X,Y); Result:=True; end; end.