Создание у формы события, основанного на событиях компонентов формы

@Egor_SES · Регистрация: 15.10.2015

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток.
Прошу подсказать решение проблемы:
Необходимо у формы создать новое событие, которое будет происходить если в одном из компонентов формы произошло заранее выбранное событие.
Пример на форме 50 шт. TEdit. (создаем динамически).
У формы должно быть создано новое событие OnChange, которое возникает если на любом из компонентов формы TEdit
возникло событие OnChange.

@northener · 15.11.2015, 01:57

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

У формы должно быть создано новое событие OnChange, которое возникает если на любом из компонентов формы TEdit
возникло событие OnChange.

Зачем и для чего? Обработчики событий OnChange компонентов лежащих на форме и так уже методы класса данной формы. Ей ли при этом не знать что у её компонента что-то изменилось.

@krapotkin · 15.11.2015, 09:07

да. и при этом ничего не мешает всем едитам дать один общий обработчик

и 50 edit на форме - это однозначная заявка на переделку интерфейса

@Egor_SES · 15.11.2015, 18:51 **[ТС]**

Ну например (если говорим о TEdit) для сохранения изменений в проекте при изменении любого TEdit.
Я понимаю, что это методы класса данной формы. Но как при возникновении одного из массива входных событий получить одно выходящее событие.
Если знаешь, подскажи, пожалуйста, как это сделать.
Присвоить динамически всем событиям OnChange TEdit-ов один обработчик не подходит.

@mss · 15.11.2015, 19:17

Ну как-то вот так:

Delphi

type
 
  TEdit = class(StdCtrls.TEdit)
  protected
    procedure Change; override;
  end;
 
  TEditChangedEvent = procedure(Sender: TObject; Edit: TEdit) of object;
 
  TMyForm = class(TForm)
    FEditChanged: TEditChangedEvent;
  published
    property OnEditChanged: TEditChangedEvent read FEditChanged write FEditChanged;
  end;
...
 
  procedure TEdit.Change; 
  begin
    inherited;
    if Assigned(Owner) and (Owner is TMyForm) then
      if Assigned(TMyForm(Owner).OnEditChanged then
         TMyForm(Owner).OnEditChanged(Owner, Self);
  end;

@Egor_SES · 17.11.2015, 00:02 **[ТС]**

mss,
спасибо за конкретный ответ.
Еще один вопрос:
Я правильно понимаю, что наследника формы необходимо также обязательно регистрировать?

Delphi

procedure Register;
begin
  RegisterComponents('MyComponents',[TMyForm]);
end;

@northener · 17.11.2015, 00:29

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

Я правильно понимаю, что наследника формы необходимо также обязательно регистрировать?

Не правильно.

@Egor_SES · 17.11.2015, 00:39 **[ТС]**

не работает.
Создал модуль с потомком формы.
подключил к проекту.
Создал форму потомка, на ней три Edit.
Создал событие и написал обработчик.
Событие не возникает.

@northener · 17.11.2015, 00:58

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

не работает.

Код показывай. И версию Дельфи скажи.

@Egor_SES · 17.11.2015, 01:31 **[ТС]**

Версия XE5

Delphi

unit MyForm;
 
interface
 
uses
  SysUtils, WinTypes, Messages, Classes, Controls, Graphics, Forms,
  Menus, StdCtrls;
 
type
 
TEdit = class(StdCtrls.TEdit)
  protected
    procedure Change; override;
  end;
 
TEditChangedEvent = procedure(Sender: TObject; Edit: TEdit) of object;
 
TMyForm = class(TForm)
  private
    FEditChanged: TEditChangedEvent;
  public
     {}
  published
    property OnEditChanged: TEditChangedEvent read FEditChanged write FEditChanged;
  end;
 
procedure Register;
 
implementation
 
procedure TEdit.Change;
  begin
    inherited;
    if Assigned(Owner) and (Owner is TMyForm) then
      if Assigned(TMyForm(Owner).OnEditChanged) then
         TMyForm(Owner).OnEditChanged(Owner, Self);
  end;
 
procedure Register;
begin
  RegisterComponents('MyComponents',[TMyForm]);
end;
 
end.

Delphi

unit Unit4;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MyForm, StdCtrls;
 
type
 
  TForm4 = class(TMyForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure onEditChanged(Sender: TObject; Edit: TEdit);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.onEditChanged(Sender: TObject; Edit: TEdit);
begin
label1.Caption:=Edit.Text;
end;

@mss · 17.11.2015, 10:03

Egor_SES, регистрация не обязательна

Код "подмены" класса TEdit следует интегрировать в юниты всех форм, где есть объекты TEdit, события которых требуется отслеживать

@Egor_SES · 17.11.2015, 22:33 **[ТС]**

Исправил как было указано.
Все равно не работает.
Прошу подсказать, что не так.
Код ниже:

unit main;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls;

type

TEdit = class(StdCtrls.TEdit)
protected
procedure Change; override;
end;

TEditChangedEvent = procedure(Sender: TObject; Edit: TEdit) of object;

TMyForm = class(TForm)
private
FEditChanged: TEditChangedEvent;
public
{}
published
property OnEditChanged: TEditChangedEvent read FEditChanged write FEditChanged;
end;

TForm4 = class(TMyForm)
Label1: TLabel;
procedure onEditChanged(Sender: TObject; Edit: TEdit);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TEdit.Change;
begin
inherited;
if Assigned(Owner) and (Owner is TMyForm) then
if Assigned(TMyForm(Owner).OnEditChanged) then
TMyForm(Owner).OnEditChanged(Owner, Self);
end;

procedure TForm4.FormCreate(Sender: TObject);
var i:integer;
AEdit:TEdit;
begin
for i:=1 to 3 do
begin
AEdit:=TEdit.Create(Form4);
with AEdit do
begin
Parent:=Form4;
Left:=200;
top:=Height*(i-1);
Name:='Edit'+IntToStr(i);
end;
end;
end;

procedure TForm4.onEditChanged(Sender: TObject; Edit: TEdit);
begin
label1.Caption:='Rabotaet';
end;

end.

@mss · 17.11.2015, 22:41

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

Все равно не работает

А где назначение обработчика события формы OnEditChanged ?
Нет его, потому и не работает.

@Egor_SES · 17.11.2015, 22:48 **[ТС]**

В самом низу:

procedure TForm4.onEditChanged(Sender: TObject; Edit: TEdit);
begin
label1.Caption:='Rabotaet';
end;

~~Verevkin~~ · 17.11.2015, 22:51

мне интересно, а что за объект будет обрабатывать событие OnEditChanged полученной формы? Ведь такой объект (с методом-обрабочиком) должен присутствовать, иначе городить коллбэк наружу из клааса формы не имеет никакого смысла.

@mss · 17.11.2015, 22:53

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

В самом низу

В самом низу сам метод-обработчик.
А где он назначается свойству-событию OnEditChanged ?
Нигде.

@Egor_SES · 18.11.2015, 00:02 **[ТС]**

mss,
Спасибо за помощь.
Все заработало.
Остался чисто практический вопрос, касающийся правильности написания кода в классическом понимании:
Необходимо ли выносить создание класса TMyForm в отдельный модуль?

@northener · 18.11.2015, 00:39

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

Остался чисто практический вопрос, касающийся правильности написания кода в классическом понимании:
Необходимо ли выносить создание класса TMyForm в отдельный модуль?

Это не столь практический, сколь теоретический вопрос. Который должен решать архитектор проекта (если есть и тот и другой), а не программист.
Твоя программа работает? Значит код написан правильно.

@Egor_SES 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 13
	17.11.2015, 22:33 [ТС]	12
	Исправил как было указано. Все равно не работает. Прошу подсказать, что не так. Код ниже: unit main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls; type TEdit = class(StdCtrls.TEdit) protected procedure Change; override; end; TEditChangedEvent = procedure(Sender: TObject; Edit: TEdit) of object; TMyForm = class(TForm) private FEditChanged: TEditChangedEvent; public {} published property OnEditChanged: TEditChangedEvent read FEditChanged write FEditChanged; end; TForm4 = class(TMyForm) Label1: TLabel; procedure onEditChanged(Sender: TObject; Edit: TEdit); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R .dfm} procedure TEdit.Change; begin inherited; if Assigned(Owner) and (Owner is TMyForm) then if Assigned(TMyForm(Owner).OnEditChanged) then TMyForm(Owner).OnEditChanged(Owner, Self); end; procedure TForm4.FormCreate(Sender: TObject); var i:integer; AEdit:TEdit; begin for i:=1 to 3 do begin AEdit:=TEdit.Create(Form4); with AEdit do begin Parent:=Form4; Left:=200; top:=Height(i-1); Name:='Edit'+IntToStr(i); end; end; end; procedure TForm4.onEditChanged(Sender: TObject; Edit: TEdit); begin label1.Caption:='Rabotaet'; end; end. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.11.2015, 22:41	13
	Сообщение от Egor_SES Все равно не работает А где назначение обработчика события формы OnEditChanged ? Нет его, потому и не работает. 0

@Egor_SES 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 13
	17.11.2015, 22:48 [ТС]	14
	В самом низу: procedure TForm4.onEditChanged(Sender: TObject; Edit: TEdit); begin label1.Caption:='Rabotaet'; end; 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.11.2015, 22:53	16
	Сообщение от Egor_SES В самом низу В самом низу сам метод-обработчик. А где он назначается свойству-событию OnEditChanged ? Нигде. 1

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	15.11.2015, 01:57	2
	Сообщение от Egor_SES У формы должно быть создано новое событие OnChange, которое возникает если на любом из компонентов формы TEdit возникло событие OnChange. Зачем и для чего? Обработчики событий OnChange компонентов лежащих на форме и так уже методы класса данной формы. Ей ли при этом не знать что у её компонента что-то изменилось. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	15.11.2015, 09:07	3
	да. и при этом ничего не мешает всем едитам дать один общий обработчик и 50 edit на форме - это однозначная заявка на переделку интерфейса 0

@Egor_SES 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 13
	15.11.2015, 18:51 [ТС]	4
	Ну например (если говорим о TEdit) для сохранения изменений в проекте при изменении любого TEdit. Я понимаю, что это методы класса данной формы. Но как при возникновении одного из массива входных событий получить одно выходящее событие. Если знаешь, подскажи, пожалуйста, как это сделать. Присвоить динамически всем событиям OnChange TEdit-ов один обработчик не подходит. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	17.11.2015, 00:29	7
	Сообщение от Egor_SES Я правильно понимаю, что наследника формы необходимо также обязательно регистрировать? Не правильно. 0

@Egor_SES 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 13
	17.11.2015, 00:39 [ТС]	8
	не работает. Создал модуль с потомком формы. подключил к проекту. Создал форму потомка, на ней три Edit. Создал событие и написал обработчик. Событие не возникает. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	17.11.2015, 00:58	9
	Сообщение от Egor_SES не работает. Код показывай. И версию Дельфи скажи. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.11.2015, 10:03	11
	Egor_SES, регистрация не обязательна Код "подмены" класса TEdit следует интегрировать в юниты всех форм, где есть объекты TEdit, события которых требуется отслеживать 0

~~Verevkin~~ Заблокирован
	17.11.2015, 22:51	15
	мне интересно, а что за объект будет обрабатывать событие OnEditChanged полученной формы? Ведь такой объект (с методом-обрабочиком) должен присутствовать, иначе городить коллбэк наружу из клааса формы не имеет никакого смысла. 0

@Egor_SES 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 13
	18.11.2015, 00:02 [ТС]	17
	mss, Спасибо за помощь. Все заработало. Остался чисто практический вопрос, касающийся правильности написания кода в классическом понимании: Необходимо ли выносить создание класса TMyForm в отдельный модуль? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	18.11.2015, 00:39	18
	Сообщение от Egor_SES Остался чисто практический вопрос, касающийся правильности написания кода в классическом понимании: Необходимо ли выносить создание класса TMyForm в отдельный модуль? Это не столь практический, сколь теоретический вопрос. Который должен решать архитектор проекта (если есть и тот и другой), а не программист. Твоя программа работает? Значит код написан правильно. 0