掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネント配列にしたclientsocketのイベントを使うには？ (ID:13294)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
動的にコンポーネントをつくり、イベントハンドラを割り当て、インスタンスを 管理する例を TLabel について示します。参考にしてください。 public LabelList:TList; procedure LblClick(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i,index:integer; Lbl:TLabel; begin LabelList := TList.Create; for i := 1 to 3 do begin Lbl := TLabel.Create(self); index := LabelList.Add(Lbl); Lbl.Parent := self; Lbl.Left := 150*index + 10; Lbl.Top := 10; Lbl.Color := clYellow; Lbl.Caption := 'Label '+IntToStr(index); Lbl.Tag := index; Lbl.OnClick := LblClick; end; end; procedure TForm1.FormDestroy(Sender: TObject); begin LabelList.Free; end; procedure TForm1.LblClick(Sender: TObject); var index:integer; begin index := TComponent(Sender).Tag; TLabel(LabelList[index]).Caption := 'You Clicked Me!'; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.