FMX.Edit.TEdit Переопределение события

[killzone]

Здравствуйте уважаемые форумчане, столкнулся с такой проблемой.
Лирическое отступление: «Была у меня программа с VCL, работающая под Windows, всё хорошо. Но теперь мы на работе к моему великому сожалению переходим на ASTRA LINUX. Мне нужно переписать все мои наработки так, чтобы они работали и под вышеуказанный LINUX. Ну ок, начал смотреть в сторону FireMonkey, т.к. он кроссплатформенный. Сделал даже простенькую программку HelloWorld которая запустилась и под Windows и под ASTRA LINUX на виртуальной машине.»

В общем начал писать программу под FMX и тут же обфейлился с простой вещью, никак не могу переопределить событие OnChange у TEdit из пакета FMX. На VCL все решалось очень просто.

procedure TForm1.Create(Sender: TObject);
begin
    Edit1.OnChange := Edit_DateOnChange;
end;

procedure TForm1.Edit_DateOnChange(Sender: TObject);
begin
  showmessage('Changed!');
end;

Мне нужно после того как пользователь введет какой-нибудь текст или изменит существующий в TEdit, чтобы запускалась проверка текста на корректность ввода.
Если я делаю по аналогии в FMX для TEdit, то вылетает Access Violation. Уже часов 5 убил, не могу сделать. Может кто-то делал что-то подобное в FireMonkey?

[DIONISKA]

Вполне возможно что собака в вашем случае зарыта в:

Сообщение от killzone

showmessage('Changed!');

попробуйте использовать TDialogService.ShowMessage из модуля FMX.DialogService:

uses
//...,
FMX.DialogService;
//...
procedure TForm1.Edit_DateOnChange(Sender: TObject);
begin
  FMX.DialogService.TDialogService.ShowMessage('Changed!');
end;

А вообще firemonkey на linux пока ещё слишком сырой, почему-бы не использовать lazarus?

[killzone]

Сообщение от DIONISKA

Вполне возможно что собака в вашем случае зарыта в:

попробуйте использовать TDialogService.ShowMessage из модуля FMX.DialogService:

uses
//...,
FMX.DialogService;
//...
procedure TForm1.Edit_DateOnChange(Sender: TObject);
begin
  FMX.DialogService.TDialogService.ShowMessage('Changed!');
end;

А вообще firemonkey на linux пока ещё слишком сырой, почему-бы не использовать lazarus?

Здравствуйте, спасибо за ответ. Я разобрался с проблемой, пришлось копать глубже в родителя tedit, и в нем есть виртуальное событие процедура называется DoChange. Её переопределил по аналогии, приду после работы скину код.

По поводу lazarus, честно говоря для меня это тёмный лес. Никогда не работал с ней. Стоит думаете на lazarus
Для кодинга под линукс перейти?

[DIONISKA]

Сообщение от killzone

процедура называется DoChange

Странно,там же вроде проверка родителя на nil, что событие назначено, вызов события и всё. Впрочем тот-же код нормально работает на других платформах, так что проблема выходит не в коде.

Сообщение от killzone

Стоит думаете на lazarus

Попробовать точно стоит, по крайней мере там таких проблем не замечено. Тот-же LCL практически идентичен VCL за некоторыми нюансами.

[DIONISKA]

И предвосхищая вопрос, в lazarus вместо:

Сообщение от killzone

Edit1.OnChange := Edit_DateOnChange;

Edit1.OnChange := @Edit_DateOnChange;

[killzone]

Сообщение от DIONISKA

Странно,там же вроде проверка родителя на nil, что событие назначено, вызов события и всё. Впрочем тот-же код нормально работает на других платформах, так что проблема выходит не в коде.

Вы абсолютно правы, я написал чушь. Моя проблема решалась также как и в VCL:

OnChange := Edit_DateOnChange;

Это я написал плохой код и ошибка Access Violation была связана с тем что я забыл в начале добавить строку inherited Create в инициализации моего класса. Долго не кодил.

Сообщение от DIONISKA

И предвосхищая вопрос, в lazarus вместо:

Edit1.OnChange := @Edit_DateOnChange;

Спасибо! Поставил бы вам палец вверх, но не вижу где кнопка.

[digitalis]

Так кнопку Alar оторвал (вместе с пальцем) , разогнав тем самым некоторое количество участников.