名前
題名
▼ Mr.XRAYさん > > 動的に作成したTStringListのOnChangeイベントは使えるのでしょうか。 > > TStringListにはOnChangeイベントがあります。 > ヘルプで調べると、このOnChaneはTNotifyEventで、TNotifyEventは > > type TNotifyEvent = procedure (Sender: TObject) of object; > > となっています。したがって、OnChangeのprocedureを作成してOnChangeに > 結びつけます。 > このProcedureをSLOnChageという名前にして、Private部に書くとすると、 > 例えば以下の様にできます。 > > private > { Private 宣言 } > procedure SLOnChange(Sender: TObject); > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.DFM} > > procedure TForm1.Button1Click(Sender: TObject); > var > SL : TStringList; > begin > SL:=TStringList.Create; > SL.OnChange:=SLOnChange; > try > SL.Add('ABC'); > finally > FreeAndNil(SL); > end; > end; > > procedure TForm1.SLOnChange(Sender: TObject); > begin > ShowMessage(TStringList(Sender).Text+'を追加しました　　'); > end; > > 動作確認　Delphi5 + WindowsXP
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link