TEdit [XE7] [TEdit] [Отклонение] Не срабатывает событие OnClick у TEdit

[d7d1cd]

Привет всем.

 

Столкнулся то ли с багом XE7, то ли с не знанием. Проект FMX под Windows. На форме Edit1, создаю событие Edit1Click. При запуске приложения и щелчке на Edit1 событие Edit1Click не вызывается. В чем причина?

[d7d1cd]

Задам, наверное, последний вопрос в этой теме. Если создать свой компонент, унаследованный от TEdit, то применив "обходные пути", предложенные Ярославом, можно будет создать компонент TMyEdit, например, в котором событие OnClick будет работать из инспектора объектов. Правильно я рассуждаю?

[Brovin Yaroslav]

 

Добрый день,

 

Это ошибка, ее устранили в будущей новой версии среды. Для обхода проблемы в других версиях среды, нужно использовать следующий подход:

var
  StyledPresentation: TStyledControl;
begin
  StyledPresentation := nil;
  if Edit1.HasPresentationProxy then
    StyledPresentation := Edit1.PresentationProxy.Receiver as TStyledControl;
  if StyledPresentation <> nil then
    StyledPresentation.OnClick := Edit1Click; // <-- программно задать свой обработчик
end;

Код для С++ Builder:

void __fastcall TForm2::FormCreate(TObject *Sender)
{
	TStyledControl* styledPresentation;
	if (Edit1->HasPresentationProxy()) {
		styledPresentation = dynamic_cast<TStyledControl*>(Edit1->PresentationProxy->Receiver);
		styledPresentation->OnClick = Edit1Click; // <-- программно задать свой обработчик
	}
}

 

Хорошо, что задали этот вопрос. Потому, что я вспомнил о более лаконичном и удобном решении. Чем тот, что я вам предложил.

В XE7 был переведен на MVC модель. В итоге, TEdit позволяет не создавая наследников менять и дополнять работу TEdit. Идея простая, у TEdit есть несколько представлений, которые полностью осуществляют работу TEdit. Чтобы исправить это отклонение, нужно создать новое представление и заменить текущей TStyledEdit на новое, исправленное:

unit FMX.Edit.MyStyle;

interface

uses
  FMX.Edit.Style, FMX.Controls.Presentation, System.UITypes, System.Classes;

type

  // Новое представление - расширение текущего
  TMyStyledEdit = class(TStyledEdit)
  protected
    procedure MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
  end;

  // Промежуточный класс
  TMyStyledEditProxy = class(TPresentationProxy)
  protected
    function CreateReceiver: TObject; override;
  end;

implementation

uses
  System.SysUtils, FMX.Presentation.Factory, FMX.Types;

{ TMyStyledEditProxy }

function TMyStyledEditProxy.CreateReceiver: TObject;
begin
  Result := TMyStyledEdit.Create(nil);
end;

{ TMyStyledEdit }

procedure TMyStyledEdit.MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  Control: IControl;
begin
  inherited;
   if Supports(PresentedControl, IControl, Control) then
    Control.MouseClick(Button, Shift, X, Y);
end;

initialization
  // Для всех TEdit удаляем базовое представление
  TPresentationProxyFactory.Current.Unregister('Edit-Style');
  // Для всех TEdit регистрируем наше представление
  TPresentationProxyFactory.Current.Register('Edit-Style', TMyStyledEditProxy);
finalization
  // Восстанавливаем старое представление Edit
  TPresentationProxyFactory.Current.Unregister('Edit-Style');
  TPresentationProxyFactory.Current.Register('Edit-Style', TStyledEditProxy);
end.

Где немного упоминается о новом подходе:

• Нативные элементы управления
• Куда пропали методы DoChangeTracking и Change?

Для исправления, достаточно добавить этот файл в проект. Этого будет достаточно.

 

Проект: NewEditPresentation.zip

[d7d1cd]

Ярослав, вновь спасибо. Однако у меня С++Builder и я не могу посмотреть предложенный Вами пример. А кроме этого, я уже как то нацелился сделать свой компонент. Конкретно - симбиоз TEdit и TLabel. Аналог TLabeledEdit в VCL. Получится у меня в создаваемом компоненте решить проблему "не кликабельности" TEdit-a?

[d7d1cd]

Здравствуйте. Подскажите, в XE8 устранена проблема, являющаяся темой выше приведенного обсуждения? Проще: в XE8 событие OnClick у TEdit работает?

Изменено 25 апреля, 2015 пользователем d7d1cd

[Brovin Yaroslav]

Да, проблема устранена в XE8.