ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

take 2005/03/08(ｿｽｿｽ) 15:37:38

ｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽ謔､ｿｽﾈイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽClassAｿｽﾆゑｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
FormAｿｽAFormBｿｽｿｽｿｽｿｽｿｽｿｽClassAｿｽﾌフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾏ撰ｿｽｿｽﾉ変会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
OnChangeｿｽﾌようｿｽﾈ変更ｿｽｿｽmｿｽ轤ｹｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽFormAｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽOnChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽけ趣ｿｽｿｽｿｽｿｽFormAｿｽｿｽﾄ描ｿｽ謔ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾍフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

 ClassA.OnChange := FormAｿｽｿｽﾅ使ｿｽpｿｽｿｽｿｽｿｽけ趣ｿｽｿｽｿｽ

ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾄ、ｿｽjｿｽｿｽｿｽｿｽｿｽｿｽ

 ClassA.OnChange := nil;

ｿｽﾆゑｿｽｿｽﾄ受け趣ｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

FormAｿｽﾌ托ｿｽｿｽｿｽｿｽFormBｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのゑｿｽFormAｿｽAFormBｿｽﾆゑｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈとゑｿｽｿｽﾅゑｿｽｿｽB
FormAｿｽAFormBｿｽﾌどゑｿｽｿｽｿｽﾉゑｿｽCｿｽxｿｽｿｽｿｽgｿｽ送りたｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
OnChangeAｿｽAOnChangeBｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽ黷ｼｿｽｿｽFormAｿｽAFormBｿｽpｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑまゑｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾈみゑｿｽFormAｿｽｿｽFormBｿｽｿｽQｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽし逆ｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽClassAｿｽｿｽFormAｿｽAFormBｿｽﾆゑｿｽﾉ参ｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽB

jok 2005/03/08(ｿｽｿｽ) 16:47:10

Delphi ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾍｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽﾐとつゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽﾅゑｿｽｿｽﾈゑｿｽ
ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾊの意厄ｿｽｿｽﾅのイｿｽxｿｽｿｽｿｽg
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽﾛ趣ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽzｿｽｿｽﾏゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽh
ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽ動的ｿｽﾉ保趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽlｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾌ暦ｿｽﾅゑｿｽ TNotifyEvent ｿｽ^
ｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌ難ｿｽｿｽIｿｽzｿｽｿｽｿｽ TList ｿｽNｿｽｿｽｿｽXｿｽﾅ保趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ¥ｿｽbｿｽh
ｿｽ直接追会ｿｽｿｽEｿｽ除ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽ黷ｪｿｽﾇのクｿｽｿｽｿｽXｿｽﾉ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽ明趣ｿｽｿｽI
ｿｽﾉ参ｿｽﾆゑｿｽｿｽｿｽKｿｽvｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

type
PNotifyEvent = ^TNotifyEvent;

TClassA = class(TObject)
private
  EventList:TList;
  function GetEventCount:integer;
protected
public
  constructor Create;
  destructor Destroy;override;
  procedure AddNotifyEvent(ne:TNotifyEvent);
  procedure DeleteNotifyEvent(ne:TNotifyEvent);
  procedure Fire;
  property EventCount:integer read GetEventCount;
end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
  public
    ClassA:TClassA;
    procedure Method1(Sender: TObject);
    procedure Method2(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//----------- TClassA ---------------

constructor TClassA.Create;
begin
  EventList := TList.Create;
end;

destructor TClassA.Destroy;
var
  i:integer;
begin
  for i := 0 to EventList.Count-1 do
    Dispose(PNotifyEvent(EventList[i]));
  EventList.Free;
  inherited;
end;

function TClassA.GetEventCount:integer;
begin
  result := EventList.Count;
end;

procedure TClassA.AddNotifyEvent(ne:TNotifyEvent);
var
  p:PNotifyEvent;
  i:integer;
begin
  for i := 0 to EventList.Count-1 do
    if @TNotifyEvent(PNotifyEvent(EventList[i])^) = @ne then exit;
  New(p);
  p^ := ne;
  EventList.Add(p)
end;

procedure TClassA.DeleteNotifyEvent(ne:TNotifyEvent);
var
  i:integer;
begin
  for i := 0 to EventList.Count-1 do
    if @TNotifyEvent(EventList[i]^) = @ne then
    begin
      Dispose(PNotifyEvent(EventList[i]));
      EventList.Delete(i);
      break;
    end;
end;

procedure TClassA.Fire;
var
  i:integer;
begin
  for i := 0 to EventList.Count-1 do
    if Assigned(EventList[i]) then PNotifyEvent(EventList[i])^(self);
end;

//----------- TForm1 ---------------

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClassA := TClassA.Create;
  ClassA.AddNotifyEvent(Method1);
  ClassA.AddNotifyEvent(Method2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClassA.Free;
end;

procedure TForm1.Method1(Sender: TObject);
begin
  Memo1.Lines.Add('Method1 done');
end;

procedure TForm1.Method2(Sender: TObject);
begin
  Memo1.Lines.Add('Method2 done');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClassA.Fire;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClassA.DeleteNotifyEvent(Method1);
  ClassA.Fire;
end;

ｿｽﾉゑｿｽｿｽｿｽ 2005/03/08(ｿｽｿｽ) 20:29:44

ClassAｿｽｿｽVCLｿｽﾅゑｿｽｿｽｿｽﾎ、TCollectionｿｽNｿｽｿｽｿｽXｿｽﾌ派ｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄ、FormA, FormBｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉ趣ｿｽｿｽﾂとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TListViewｿｽｿｽColumnｿｽｿｽATStatusBarｿｽｿｽPanelsｿｽﾆ難ｿｽｿｽｿｽｿｽﾅゑｿｽ

ｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾍ、ｿｽfｿｽUｿｽCｿｽｿｽｿｽｿｽｿｽﾉ設抵ｿｽﾅゑｿｽｿｽ驍ｱｿｽﾆ。
ｿｽfｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾍ、TCollection, TCollectionItemｿｽﾌ抵ｿｽ`ｿｽｿｽｿｽﾊ倒ｿｽﾈゑｿｽｿｽﾆでゑｿｽ^^;
ｿｽfｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾌ包ｿｽｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで。

# ｿｽﾊゑｿｽUnitｿｽｿｽFormｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉゑｿｽﾄるかｿｽﾇゑｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽけｿｽﾈゑｿｽｿｽB

jok 2005/03/08(ｿｽｿｽ) 23:25:04

> ClassAｿｽｿｽVCLｿｽﾅゑｿｽｿｽｿｽﾎ、TCollectionｿｽNｿｽｿｽｿｽXｿｽﾌ派ｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄ、FormA, FormBｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉ趣ｿｽｿｽﾂとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽ[ｿｽﾞ、ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆと、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌｿｽｿｽXｿｽgｿｽｿｽ
ｿｽﾛ趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆとは必ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇね。ｿｽKｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾄび出ｿｽｿｽ
ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ TFormA ｿｽｿｽ TFormB ｿｽﾌ宣言ｿｽｿｽ TClassA ｿｽｿｽｿｽ迪ｩｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ
ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。

ｿｽﾉゑｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 00:51:27

ｿｽｿｽｿｽAｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾄゑｿｽｿｽｿｽｿｽｿｽATFormAｿｽｿｽTFormBｿｽﾉは具ｿｽｿｽﾊの親ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOnChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ。
ClassAｿｽｿｽTFormAｿｽﾍわかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽeｿｽNｿｽｿｽｿｽXｿｽﾍわかｿｽｿｽﾆゑｿｽｿｽｿｽｿｽOｿｽｿｽB

TFormAｿｽATFormBｿｽﾌ派ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽfｿｽｿｽｿｽｿｽNotifyEventｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾈ単ｿｽﾅゑｿｽｿｽﾋ。

> ｿｽｿｽｿｽ[ｿｽﾞ、ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆと、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌｿｽｿｽXｿｽgｿｽｿｽ
> ｿｽﾛ趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆとは必ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇね。

ｿｽｿｽｿｽｿｽﾌ場合ｿｽA
ｿｽEｿｽPｿｽNｿｽｿｽｿｽXｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾏ更ｿｽﾅ、ｿｽQｿｽﾂのフｿｽHｿｽ[ｿｽｿｽｿｽｿｽOnChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾆ暦ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽﾂ、ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽIｿｽﾉ、ｿｽQｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽﾄぶ、ｿｽﾆゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽかｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾌ抵ｿｽｿｽﾓ点ｿｽﾆゑｿｽｿｽﾄ、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ開ｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
VCLｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾆゑｿｽｿｽﾄプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ連ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、Notificationｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ開ｿｽｿｽｿｽﾊ知ｿｽﾅゑｿｽｿｽｿｽ_ｿｽｿｽAｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

jok 2005/03/09(ｿｽｿｽ) 02:56:55

ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽﾆゑｿｽｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽいｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾌテｿｽ[ｿｽ}ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽいｿｽﾅゑｿｽｿｽｿｽｿｽB
C# ｿｽﾌデｿｽｿｽｿｽQｿｽ[ｿｽgｿｽﾅは、ｿｽ}ｿｽｿｽｿｽ`ｿｽLｿｽｿｽｿｽXｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、Delphi ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽいｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾅ擾ｿｽｿｽﾉわたｿｽｿｽｿｽｿｽPｿｽﾉオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽﾅゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽ
ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽﾅゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽ

> ｿｽﾜゑｿｽClassAｿｽｿｽFormAｿｽAFormBｿｽﾆゑｿｽﾉ参ｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾌオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌクｿｽｿｽｿｽXｿｽｿｽ¥ｿｽﾟ想ｿｽ閧ｷｿｽｿｽ謔､ｿｽﾈ趣ｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉ思ｿｽｿｽ
ｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾊの擾ｿｽﾊクｿｽｿｽｿｽXｿｽｿｽgｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽ¥ｿｽbｿｽgｿｽｿｽﾄび出ｿｽｿｽｿｽﾆゑｿｽｿｽﾉは具ｿｽﾌ的ｿｽﾈ会ｿｽｿｽﾊクｿｽｿｽｿｽX
ｿｽﾉキｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾜゑｿｽｿｽし。ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽ
ｿｽ¥ｿｽﾟ呼び出ｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽSｿｽﾄ固抵ｿｽAｿｽｿｽｿｽｿｽｿｽﾄ予ｿｽﾟオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽﾇゑｿｽﾈクｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽ
ｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBTCollection ｿｽｿｽgｿｽｿｽｿｽ鼾ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽﾉ対ゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾌゑｿｽﾌのｿｽｿｽXｿｽgｿｽﾅは、ｿｽﾃ黙のオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽQｿｽﾆゑｿｽｿｽnｿｽｿｽｿｽｿｽ驍ｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾌ型ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽOKｿｽﾅゑｿｽｿｽBｿｽﾆゑｿｽｿｽが SizeOf(TNotifyEvent) ｿｽﾆゑｿｽｿｽﾄみゑｿｽﾎ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾉ、ｿｽWｿｽoｿｽCｿｽgｿｽﾈのゑｿｽ
ｿｽPｿｽｿｽｿｽﾈポｿｽCｿｽｿｽｿｽ^ｿｽﾌｿｽｿｽXｿｽg TList ｿｽﾅはダｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽﾅは、PNotifyEvent ｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄ、New() ｿｽｿｽ
Dispose() ｿｽﾅ追会ｿｽｿｽ除ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽﾆ変ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

> ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾌ抵ｿｽｿｽﾓ点ｿｽﾆゑｿｽｿｽﾄ、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ開ｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽ¥ｿｽbｿｽh
> ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。Add() ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Delete() ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾌは、Delphi ｿｽﾌ常道ｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。ｿｽｿｽdｿｽﾉ登ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽoｿｽ^ｿｽｿｽｿｽﾄなゑｿｽｿｽﾌゑｿｽ Delete() ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽQｿｽﾉなゑｿｽ謔､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽｿｽｿｽｿｽ TClassA ｿｽﾍ、ｿｽ{ｿｽｿｽｿｽﾍ擾ｿｽｿｽｿｽｿｽﾈｿｽｿｽXｿｽgｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾆゑｿｽｿｽﾗゑｿｽ
ｿｽﾅ、ｿｽVｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽ has ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽzｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽﾜではゑｿｽｿｽﾄゑｿｽ
ｿｽﾜゑｿｽｿｽｿｽB

take 2005/03/09(ｿｽｿｽ) 09:10:04

jokｿｽｿｽｿｽｿｽAｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽFｿｽXｿｽﾈプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅデｿｽ[ｿｽ^ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽYｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽB

ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽﾅ上下ｿｽﾖ係ｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌ場合ｿｽﾍ擾ｿｽﾊに渡ｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽﾊに難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ繪ｺｿｽﾖ係ｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌ場合ｿｽｿｽ
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽﾌゑｿｽｿｽﾆ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽQｿｽﾆに関ゑｿｽｿｽﾄでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽClassAｿｽﾍグｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾅゑｿｽｿｽﾌゑｿｽ
interfaceｿｽｿｽｿｽﾉゑｿｽ

var
  GDClassA : TClassA;
  
ｿｽﾆ抵ｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽﾜゑｿｽusesｿｽﾍ趣ｿｽｿｽgｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾈ外ｿｽﾍ記ｿｽqｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽﾆで独暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾜゑｿｽFormA,FormBｿｽﾍグｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽﾉ過ゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ

implementationｿｽｿｽｿｽｿｽusesｿｽﾆゑｿｽｿｽﾄ参ｿｽﾆ宣言ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽ[ｿｽWｿｽﾅゑｿｽｿｽB


jokｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽｿｽTListｿｽﾅ管暦ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽzｿｽﾍ思ｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｦｿｽﾜゑｿｽｿｽｿｽｿｽH

ｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽﾔ最擾ｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽClassAｿｽﾉ対ゑｿｽｿｽｿｽFormA,FormBｿｽｿｽｿｽｿｽｿｽ
OnChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾛにゑｿｽClassAｿｽﾌようｿｽﾉ包ｿｽｿｽｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽXClassBｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾈら今TPersistentｿｽｿｽｿｽｿｽClassAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽTPersistentｿｽｿｽpｿｽｿｽｿｽｿｽ
TPersistentExｿｽﾈどとゑｿｽｿｽﾄゑｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽ
procedure AddNotifyEvent(ne:TNotifyEvent);
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ClassAｿｽAClassBｿｽﾆゑｿｽｿｽTPersistentExｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽ
ｿｽeｿｽNｿｽｿｽｿｽXｿｽﾉソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽﾋ？

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽOnChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ托ｿｽｿｽﾉゑｿｽｿｽﾆゑｿｽｿｽﾎ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽg
OnRefreshｿｽｿｽｿｽうｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈりそｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽﾌとゑｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾆゑｿｽｿｽｿｽ
ｿｽuｿｽｿｽｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾊ知ｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽTListｿｽｿｽｿｽｿｽｿｽﾉ用ｿｽﾓゑｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽQｿｽｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽBｿｽv
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽyｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽuｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽﾂのクｿｽｿｽｿｽXｿｽﾉゑｿｽｿｽｿｽBｿｽv
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽyｿｽﾉなりそｿｽｿｽｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

sakiyama 2005/03/09(ｿｽｿｽ) 11:18:36

ｿｽﾈ前ｿｽｿｽhttp://www.borland.co.jp/cppbuilder/papers/vctocb/chap45.html
ｿｽｿｽdelphiｿｽﾉ移植ｿｽｿｽｿｽｿｽTObserver/TObservableｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ抵ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾈ会ｿｽObserver.pas
--------------
unit Observer;

interface

uses
  SysUtils, Classes, Contnrs;

type
  TUpdateEvent = procedure(Sender, Arg: TObject) of object;
  TObserver = class;

  TObservable = class(TComponent)
  private
    FObservers: TComponentList;
    FChanged: Boolean;
    function GetObservers(Index: Integer): TObserver;
  protected
    procedure AddObserver(Value: TObserver);
    procedure RemoveObserver(Value: TObserver);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Notify(Arg : TObject);
    procedure Changed(State: Boolean = True);
    function HasChanged: Boolean;
    property Observers[Index: Integer]: TObserver read GetObservers;
  end;

  TObserver = class(TComponent)
  private
    { Private ｿｽ骭ｾ }
    FObservable: TObservable;
    FOnUpdate: TUpdateEvent;
    procedure SetObservable(const Value: TObservable);
  protected
    { Protected ｿｽ骭ｾ }
    procedure DoUpdate(Arg : TObject);
  public
    { Public ｿｽ骭ｾ }
  published
    { Published ｿｽ骭ｾ }
    property Observable: TObservable read FObservable write SetObservable;
    property OnUpdate:TUpdateEvent read FOnUpdate write FOnUpdate;
  end;

  procedure Register;

implementation

(** ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽoｿｽ^ｿｽ闡ｱｿｽｿｽ **)
procedure Register;
begin
  RegisterComponents('Samples', [TObserver, TObservable]);
end;

{ TObservable }
procedure TObservable.AddObserver(Value: TObserver);
begin
  if FObservers.IndexOf(Value) < 0 then
    FObservers.Add(Value);
end;

procedure TObservable.Changed(State: Boolean = True);
begin
  FChanged := State;
end;

constructor TObservable.Create(AOwner: TComponent);
begin
  inherited;
  FObservers := TComponentList.Create(False);
  FChanged := False;
end;

destructor TObservable.Destroy;
begin
  FObservers.Free;
  inherited;
end;

function TObservable.GetObservers(Index: Integer): TObserver;
begin
  Result := FObservers[Index] as TObserver;
end;

function TObservable.HasChanged: Boolean;
begin
  Result := FChanged;
end;

procedure TObservable.Notify(Arg : TObject);
var i: Integer;
begin
  if FChanged then begin
    for i := 0 to FObservers.Count -1 do
      (FObservers[i] as TObserver).DoUpdate(Arg);
    FChanged := False;
  end;
end;

procedure TObservable.RemoveObserver(Value: TObserver);
begin
  FObservers.Extract(Value);
end;

{ TObserver }
procedure TObserver.DoUpdate(Arg : TObject);
begin
  if Assigned(FOnUpdate) then
    FOnUpdate(Self, Arg);
end;

procedure TObserver.SetObservable(const Value: TObservable);
begin
  if Assigned(FObservable) then
    FObservable.RemoveObserver(Self);

  FObservable := Value;
  if Assigned(FObservable) then begin
    FObservable.AddObserver(Self);
    FObservable.FreeNotification(Self);
  end;
end;

end.
----ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ

ClassAｿｽﾌｿｽｿｽｿｽｿｽoｿｽｿｽTObservableｿｽｿｽｿｽｿｽｿｽﾄ、Form1,2ｿｽｿｽTObserverｿｽｿｽuｿｽｿｽｿｽﾜゑｿｽ
Form1.ObserverｿｽｿｽTObservableｿｽｿｽClassAｿｽｿｽObservableｿｽｿｽoｿｽ^ｿｽｿｽｿｽｿｽ
UpdateｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉ通知ｿｽｿｽｿｽ黷ｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ClassAｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ黷ｽｿｽｿｽ
  Observable1.Changed;
  Observable1.Notify(Self);
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾆ登ｿｽ^ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽObserverｿｽﾉ変更ｿｽﾊ知ｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽ

ｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ暦ｿｽｿｽ_ｿｽｿｽFreeNotificationｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽObserverｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ管暦ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈのゑｿｽForm1ｿｽﾌ破ｿｽｿｽｿｽｿｽｿｽｿｽObservableｿｽｿｽｿｽｿｽObserverｿｽｿｽ除ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ

jok 2005/03/09(ｿｽｿｽ) 12:52:58

> sakiyama ｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽﾎらしｿｽｿｽｿｽI ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽfｿｽUｿｽpｿｽ^ｿｽﾌ典ｿｽ^ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽH

ｿｽﾈゑｿｽﾙど、ｿｽoｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾊのクｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽuｿｽｿｽｿｽﾎ、ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌようｿｽﾉオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ｿｽｿｽｿｽXｿｽgｿｽﾅ管暦ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。ｿｽたｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽﾉ気ｿｽｿｽｿｽｿｽｿｽﾄ托ｿｽﾇ的ｿｽﾈ趣ｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

> ｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ暦ｿｽｿｽ_ｿｽｿｽFreeNotificationｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽObserverｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ管暦ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、FObservable.FreeNotification(Self); ｿｽｿｽ Observer ｿｽｿｽ Observable ｿｽﾉ開ｿｽｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽ
ｿｽﾌは包ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾌ心ｿｽｿｽ TObservable ｿｽﾌほゑｿｽｿｽﾅ通知ｿｽｿｽけゑｿｽ FObservers ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽ
ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBNotification ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ override ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

sakiyama 2005/03/09(ｿｽｿｽ) 13:09:26

> ｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、FObservable.FreeNotification(Self); ｿｽｿｽ Observer ｿｽｿｽ > Observable ｿｽﾉ開ｿｽｿｽｿｽﾊ知ｿｽｿｽｿｽｿｽ
> ｿｽﾌは包ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾌ心ｿｽｿｽ TObservable ｿｽﾌほゑｿｽｿｽﾅ通知ｿｽｿｽけゑｿｽ FObservers ｿｽﾌｿｽｿｽXｿｽgｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽ
> ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBNotification ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ override ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽﾌ辺ゑｿｽVCLｿｽCｿｽｿｽｿｽﾉなゑｿｽｿｽﾄまゑｿｽｿｽｿｽ
FObserversｿｽｿｽTComponentListｿｽﾅゑｿｽｿｽﾌで、ｿｽoｿｽ^ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽFreeNotificationｿｽｿｽﾟまゑｿｽｿｽﾜゑｿｽ

sakiyama 2005/03/09(ｿｽｿｽ) 13:16:52

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
FreeNotificationｿｽvｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
ｿｽﾈ前ｿｽｿｽTComponentListｿｽgｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾌ厄ｿｽｿｽcｿｽﾅゑｿｽｿｽｿｽ

jok 2005/03/09(ｿｽｿｽ) 13:30:52

> FreeNotificationｿｽvｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。

ｿｽﾈゑｿｽﾙど、ｿｽｿｽｿｽｿｽﾈら分ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

sakiyama 2005/03/09(ｿｽｿｽ) 13:37:18

ｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽBｿｽKｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
jokｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽNotificationｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽﾋ。
ObservableｿｽｿｽObserverｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
procedure TObserver.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent = FObservable) then
    SetObservable(nil);
end;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽObserverｿｽｿｽｿｽｿｽｿｽﾂまでゑｿｽｿｽｿｽｿｽObservableｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽﾋ。
FreeNotificationｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
BorlandｿｽｿｽModel/ObserverｿｽﾉはゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽﾂゑｿｽObservable/ObserverｿｽﾌどゑｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB

jok 2005/03/09(ｿｽｿｽ) 13:45:51

> ｿｽｿｽｿｽﾂゑｿｽObservable/ObserverｿｽﾌどゑｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽAｿｽたｿｽｿｽｿｽｿｽQｿｽdｿｽﾉ奇ｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆに気ｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

take 2005/03/09(ｿｽｿｽ) 16:17:45

sakiyamaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾈゑｿｽﾙどイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾆ受け趣ｿｽｿｽｿｽｿｽｿｽｿｽ黷ｼｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽTComponentListｿｽﾉゑｿｽｿｽﾇ暦ｿｽｿｽﾆは目ゑｿｽｿｽｿｽﾘでゑｿｽｿｽB

ｿｽ¥ｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽ|ｿｽｿｽ 2005/03/31(ｿｽｿｽ) 16:54:08

ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ、ｿｽ|ｿｽｿｽｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽB
takeｿｽlｿｽｿｽsakiyamaｿｽlｿｽﾌゑｿｽｿｽｿｽ閧ｩｿｽ轤｢ｿｽいｿｽｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽﾗ具ｿｽｿｽsｿｽｿｽｿｽﾅなんか暦ｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽﾅゑｿｽｿｽB
takeｿｽlｿｽｿｽｿｽ轤ｿｽｿｽFormAｿｽｿｽFormBｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH

take 2005/04/03(ｿｽｿｽ) 13:40:36

>ｿｽ¥ｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽuObserversｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽPｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽﾆ難しｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽSend
ｿｽけ趣ｿｽ闡､ｿｽｿｽReceiveｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAChangeｿｽﾖ係ｿｽﾌフｿｽｿｽｿｽOｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾍほとゑｿｽｿｽsakiyamaｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽﾌままでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾈみに趣ｿｽｿｽﾛに本ｿｽﾔでゑｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ厄ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ^ｿｽけ趣ｿｽ閭ｿｽjｿｽbｿｽg MultiEvent.pasｿｽｿｽ
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽ Unit1.pasｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

TForm1.OnUpdate1ｿｽｿｽTForm1.OnUpdate2ｿｽﾌ抵ｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽCｿｽNｿｽ|ｿｽCｿｽｿｽｿｽgｿｽｿｽtｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

unit MultiEvent;

interface

uses
  SysUtils, Classes, Contnrs;

type
  TMultiEventUpdateEvent = procedure(Sender, Arg: TObject) of object;
  TMultiEventReceive = class;

  TMultiEventSend = class(TComponent)
  private
    FObservers: TComponentList;
    function GetObservers(Index: Integer): TMultiEventReceive;
  protected
    property Observers[Index: Integer]: TMultiEventReceive read GetObservers;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    procedure Add(Value: TMultiEventReceive);
    procedure Delete(Value: TMultiEventReceive);

    procedure Notify(Arg : TObject);
  end;

  TMultiEventReceive = class(TComponent)
  private
    { Private ｿｽ骭ｾ }
    FObservable: TMultiEventSend;
    FOnUpdate: TMultiEventUpdateEvent;
    procedure SetObservable(const Value: TMultiEventSend);
  protected
    { Protected ｿｽ骭ｾ }
    procedure DoUpdate(Arg : TObject);
  public
    { Public ｿｽ骭ｾ }
    property Observable: TMultiEventSend read FObservable write SetObservable;
  published
    { Published ｿｽ骭ｾ }
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    property OnUpdate:TMultiEventUpdateEvent read FOnUpdate write FOnUpdate;
  end;

implementation

{ TMultiEventSend }

procedure TMultiEventSend.Add(Value: TMultiEventReceive);
begin
  if FObservers.IndexOf(Value) < 0 then
    FObservers.Add(Value);
end;

constructor TMultiEventSend.Create(AOwner: TComponent);
begin
  inherited;
  FObservers := TComponentList.Create(False);
end;

destructor TMultiEventSend.Destroy;
begin
  FObservers.Free;
  inherited;
end;

function TMultiEventSend.GetObservers(Index: Integer): TMultiEventReceive;
begin
  Result := FObservers[Index] as TMultiEventReceive;
end;


procedure TMultiEventSend.Notify(Arg : TObject);
var i: Integer;
begin
  for i := 0 to FObservers.Count -1 do begin
    (FObservers[i] as TMultiEventReceive).DoUpdate(Arg);
  end;
end;

procedure TMultiEventSend.Delete(Value: TMultiEventReceive);
begin
  FObservers.Extract(Value);
end;

{ TMultiEventReceive }

procedure TMultiEventReceive.DoUpdate(Arg : TObject);
begin
  if Assigned(FOnUpdate) then
    FOnUpdate(Self, Arg);
end;

procedure TMultiEventReceive.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent = FObservable) then
    SetObservable(nil);
end;

procedure TMultiEventReceive.SetObservable(const Value: TMultiEventSend);
begin
  if Assigned(FObservable) then begin
    FObservable.Delete(Self);
  end;
  FObservable := Value;
  if Assigned(FObservable) then begin
    FObservable.Add(Self);
    FObservable.FreeNotification(Self);
  end;
end;

end.

------------------------------------------------------------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MultiEvent, StdCtrls;

type
  TTestData = class(TPersistent)
  private
    { Private ｿｽ骭ｾ }
    FEvents: TMultiEventSend;
    FValue: Integer;
    procedure SetValue(const Value: Integer);
  public
    { Public ｿｽ骭ｾ }
    constructor Create;
    destructor Destroy; override;

    property Events : TMultiEventSend read FEvents write FEvents;
    property Value : Integer read FValue write SetValue;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
    FTest : TTestData;
    FEvents1: TMultiEventReceive;
    FEvents2: TMultiEventReceive;
    procedure OnUpdate1(Sender, Arg: TObject);
    procedure OnUpdate2(Sender, Arg: TObject);
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TTestData }

constructor TTestData.Create;
begin
  FEvents := TMultiEventSend.Create(nil);
end;

destructor TTestData.Destroy;
begin
  FEvents.Free;
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest := TTestData.Create;
  FEvents1 := TMultiEventReceive.Create(Self);
  FEvents1.OnUpdate := OnUpdate1;
  FEvents2 := TMultiEventReceive.Create(Self);
  FEvents2.OnUpdate := OnUpdate2;
  FTest.Events.Add(FEvents1);
  FTest.Events.Add(FEvents2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FTest.Events.Delete(FEvents2);
  FTest.Events.Delete(FEvents1);
  FEvents2.Free;
  FEvents1.Free;
  FTest.Free;
end;

procedure TForm1.OnUpdate1(Sender, Arg: TObject);
var
  s : string;
begin
  s := '';
end;

procedure TForm1.OnUpdate2(Sender, Arg: TObject);
var
  s : string;
begin
  s := '';
end;

procedure TTestData.SetValue(const Value: Integer);
begin
  FValue := Value;
  FEvents.Notify(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FTest.Value := 0;
end;

end.

Created by board of various Programming Library.