OSX Yosemite и XE7 Firemonkey

Question

может кто-нибудь сказать мне, как сделать объект TTrackBar только для чтения в C++ Builder (или Delphi) XE7 в приложении OSX firemonkey? Я попробовал свойство «Заблокировано», но, похоже, он не работает.

Приветствия

дронта

Answer 1

Установите Enabled свойство False. Locked блокирует положение трек-панели в дизайнере, чтобы вы не могли его случайно переместить.

Answer 2

Вот еще один ответ из-за ваших дополнительных требований. Не существует свойства «readonly», которое будет поддерживать TrackBar.

Вы можете просто использовать событие TrackBar.OnChange и просто сбросить значение, если пользователь пытается изменить его:

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin 
    TrackBar1.Value := 50; 
end; 

Более продвинутый подход заключается в использовании наблюдателя для того, чтобы получить истинное только для чтения TrackBar.

TReadOnlyTrackObserver = class(TInterfacedObject, IEditLinkObserver, IObserver, ISingleCastObserver) 
public 
    procedure Removed; 
    function GetActive: Boolean; 
    procedure SetActive(Value: Boolean); 
    function GetOnObserverToggle: TObserverToggleEvent; 
    procedure SetOnObserverToggle(AEvent: TObserverToggleEvent); 

    procedure Update; 
    function Edit: Boolean; 
    procedure Reset; 
    procedure Modified; 
    function IsModified: Boolean; 
    function IsValidChar(AKey: Char): Boolean; 
    function IsRequired: Boolean; 
    function GetIsReadOnly: Boolean; 
    procedure SetIsReadOnly(Value: Boolean); 
    property IsReadOnly: Boolean read GetIsReadOnly write SetIsReadOnly; 
    function GetIsEditing: Boolean; 
    property IsEditing: Boolean read GetIsEditing; 
    procedure BeginUpdate; 
    procedure EndUpdate; 
    function GetUpdating: Boolean; 
    property Updating: Boolean read GetUpdating; 
end; 

function TReadOnlyTrackObserver.GetActive: Boolean; 
begin 
    Result := True; 
end; 

function TReadOnlyTrackObserver.GetIsReadOnly: Boolean; 
begin 
    Result := True; 
end; 

// todo: implement the other required functions of TReadOnlyTrackObserver 

var 
    MyObserver: IEditLinkObserver; 

    MyObserver := TReadOnlyTrackObserver.Create; 
    TrackBar1.Observers.AddObserver(TObserverMapping.EditLinkID, MyObserver);