Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Переопределить event / 10 сообщений из 10, страница 1 из 1
21.05.2021, 07:24
    #40071835
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
В TComboEdit нет подбора значений из списка при вводе текста, как у ComboBox в VCL, поэтому необходимо переопределить ввод

Наследуюсь от FMX.ComboEdit.TComboEdit

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
TComboEdit = class(FMX.ComboEdit.TComboEdit)
  private
    LastTimeKeydown:TDatetime;
    Keys:string;
  protected
  //  procedure KeyDown(var Key: Word; var KeyChar: System.WideChar; Shift: TShiftState);override;
    procedure Change();
  end;



Соответственно в

Код: pascal
1.
2.
3.
4.
5.
6.
7.
procedure TComboEdit.Change();
var
begin
    //Обработчик

  inherited;
end;



KeyDown наступает, но мне надо именно на OnChange, а оно почему-то не наступает. Видимо неверное название. У TComboEdit есть и OnKeyDown, и OnChange. Где порыться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 07:36
    #40071836
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
Может override не хватает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 07:53
    #40071840
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
wadman,

Не хватает, но в базовом классе нет метода Change :)

дело в том, что в FMX.ComboEdit.TComboEdit нет и метода KeyDown, но почему работает?

И всё-таки, как мне переопределить OnChange, чтобы стандартный OnChange, который повешен на контрол тоже срабатывал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 07:59
    #40071841
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
antox
дело в том, что в FMX.ComboEdit.TComboEdit нет и метода KeyDown, но почему работает?

Значит где-то выше есть.
antox
И всё-таки, как мне переопределить OnChange, чтобы стандартный OnChange, который повешен на контрол тоже срабатывал?

Каша какая-то... On Change это обработчик события, Change/DoChange и т.п. методы обычно его вызывают.

Ищи в исходниках, если они имеются.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 08:55
    #40071847
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
wadman,

Код: pascal
1.
TComboEdit = class(TCustomComboEdit)



Код: pascal
1.
TCustomComboEdit = class(TComboEditBase)



Код: pascal
1.
TComboEditBase = class(TCustomEdit)



у TComboEditBase есть с-во и процедура

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
property OnChange: TNotifyEvent read GetOnChange write SetOnChange;
function GetOnChange: TNotifyEvent;


function TCustomEdit.GetOnChange: TNotifyEvent;
begin
  Result := Model.OnChange;
end;



и у
TCustomComboEdit
есть св-во

Код: pascal
1.
property Model: TComboEditModel read GetModel;



Код: pascal
1.
TComboEditModel = class(TCustomEditModel)



Код: pascal
1.
TCustomEditModel = class(TDataModel)



и уже у TDataModel есть
Код: pascal
1.
 procedure Change;



Не знаю, как добраться, если это вообще оно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 09:31
    #40071850
Virtual Student
Virtual Student
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
antox,
Код: pascal
1.
procedure Change;


в какой секции прописан?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 09:42
    #40071854
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
Virtual Student,

немного перепутал, уже у TCustomEditModel есть

Код: pascal
1.
2.
protected
 procedure DoChange; virtual;



и

Код: pascal
1.
2.
public 
 procedure Change;



но TCustomEditModel же не является базовым классом, как я понимаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 10:12
    #40071862
Virtual Student
Virtual Student
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
antox
Virtual Student,

немного перепутал, уже у TCustomEditModel есть

Код: pascal
1.
2.
protected
 procedure DoChange; virtual;



и

Код: pascal
1.
2.
public 
 procedure Change;



но TCustomEditModel же не является базовым классом, как я понимаю

Я бы попробовал унаследоваться от TCustomEditModel . Т.е. создал бы дополнительный класс модели данных для твоего TComboEdit , и подсунул бы его через GetModel твоего компонента TComboEdit .
Ну, а в твоей условной TMyEditModel переопределил бы метод Change .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 10:53
    #40071874
antox
antox
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
Virtual Student,

Буду пробовать. Пока ч-з keydown сделал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2021, 11:04
    #40071879
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переопределить event
antox
Код: pascal
1.
2.
protected
 procedure DoChange; virtual;


antox
Код: pascal
1.
2.
public 
 procedure Change;


Первый можно перекрыть, второй - нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Переопределить event / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]