Tag(etc)

VBの Tagプロパティには文字や数値などを代入できますが, Delphiの Tagプロパティには数値のみ代入可能です。しかし少し工夫すれば文字列などを代入することができます。それは文字列へのポインタを代入する方法です。以下の例はそのサンプルです。

■ Tagに文字列をいれる例

procedure TForm1.Button1Click(Sender: TObject); begin {リストボックスタグに文字列を代入} ListBox1.Tag := LongInt(NewStr('Borland Delphi')); end; procedure TForm1.Button2Click(Sender: TObject); begin {リストボックスタグを表示} ShowMessage(PString(ListBox1.Tag)^); end;