Tagプロパティーの使い方 (ID:7007)

名前

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

本文 私の場合は社員情報等の検索で使いました。 procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Tag := StrToIntDef(Edit1.Text,0); end; procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Tag>0 then begin Employee := GetEmplyeeInfo(Edit1.Tag); ... end else ShowMessage('ちゃんと社員番号入れてヨッ！！'); end;