掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBoxでの表示について (ID:2649)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「ツジ」ネエネエ、ComboBoxに入力した文字をチェックしたらオカスイんだって。 「カゴ」モー、ツジちゃんたらオカシ食べ過ぎよ。モームスじゃなくて牛(モー)娘じゃん。 「ツジ」そんなさぶい駄洒落言うのダジャレ〜？ 「裕子」もー、二人ともふざけとらんと、ちゃんと答えてあげな失礼やろ。 「ツジ」だってぇアタシ指揮者じゃないもん♪って、これもさぶすぎ〜(^^ゞ 「カゴ」ネエ、ComboBoxに入力した文字列の Indexって「0」なの？ 「ツジ」え〜？違うよ〜。「-1」じゃん♪ 「裕子」そやな。入力した文字列はまだ Add しとらんで、ItemIndexが「-1」ちゅうわけや。んで、こないなふうに直したら確かめられるンちゃうか？ var SAM : string; procedure TForm1.ComboBox1Change(Sender: TObject); begin case ComboBox1.ItemIndex of -1: SAM := ComboBox1.Text; 0: SAM := '-------'; 1: SAM := 'Au'; 2: SAM := 'HOPG'; 3: SAM := 'DFU'; end; end; procedure TForm1.Button1Click(Sender: TObject); begin MessageDlg(SAM, mtInformation, [mbOK], 0); Label1.Caption := SAM; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.