ListBox で選択項目が変更されたタイミングを捉えるには？ (ID:30493)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

真琴：「OnChangeが欲しいって、こういうの、"ナイモノねだり"っていうンじゃない？」
広海：「ナイものは自分で作っちゃえば イイじゃん、ねェ」
真琴：「えっ？、自分で？…どうやって作るの？」
広海：「そんなコト、オレに聞くなょ、聞く相手が違うだろぅ」
真琴：「なぁ〜んだ、めずらしく知ってるのかと思ったら…」
広海：「"めずらしく"って、その言い方…、あぁ、また傷ついたぁ」
春子：「もう…、同じ手は何回も使えないわよ、ヒロミくん」
広海：「あ、そぅ？」
真琴：「カイトさん、OnChangeを作るって、そんなコトできるの？」
海都：「う〜ん…、できないコトはないけど…」
広海：「もったいぶってないで、ほら、サッサと教えてあげなよ」
海都：「アンタにそんなコト言われるスジあいはナイね」
広海：「マコト、ほら、オマエからも頼めョ」
真琴：「オネガイ、カイトさん、アタシも知りたいの」
海都：「…ん、じゃぁ、こうしてみたら？」

type
  TListBox = class(StdCtrls.TListBox)
  private
    FOnChange: TNotifyEvent;
    procedure CNCommand(var Msg: TWMCommand); Message CN_COMMAND;
  published
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    .....
    procedure FormCreate(Sender: TObject);
  private
    procedure ListBox1Change(Sender: TObject);
    .....

implementation

{TListBox}
procedure TListBox.CnCommand(var Msg: TWMCommand);
begin
  inherited;
  case Msg.NotifyCode of
    LBN_SELCHANGE: if Assigned(FOnChange) then FOnChange(Self);
  end;
end;

{TForm1}
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.OnChange := ListBox1Change;
end;

procedure TForm1.ListBox1Change(Sender: TObject);
begin
  Caption := Caption + '*';
end;
........

真琴：「ふ〜ん、ホントにできちゃうんだぁ…"ナイモノねだり"もするもんだネ」
広海：「ねっ、カンタンだろ？ マコト」
海都：「おぃ、それは、オレのセリフだろぅ」

←解決時は質問者本人がここをチェックしてください。

戻る