名前 題名 ▼ 白猫さん > ▼ satoさん > > 趣旨がよくわからないのですが > こんな形？ > > procedure TForm6.SpeedButton2Click(Sender: TObject); > var counts,i:integer; > begin > //現在の位置を取得する > counts:=ComboBox1.Items.IndexOf(ComboBox1.Text); > //何らかの理由で位置が取得できなければ、中止 > if counts>-1 then begin > //現在位置から五個削除する > for I := counts to counts+4 do > ComboBox1.Items.Delete(counts); > > end; // if i>-1 then begin > > end; > > > > ▼ マスター、皆さん > > 目覚ましは日曜日にセットしたのですが、 > > チョット困ったことがおきたので起きてきました。 > > よろしくお願いします。 > > Formに > > Combobox1,SpeedButton1,SpeedButton2 をおきます。 > > SpeedButton1Clickで > > ComboBox1.Items.Clear; > > for i:=1 to 10 do > > ComboBox1.Items.Insert(0,IntToStr(i)); > > > > SpeedButton2Clickで > > for i:=1 to 5 do > > ComboBox1.Items.Delete(0); > > > > としておきます。 > > SpeedButton1を押下したあと、ComboBox1.Itemsは > > 上から、10,9,8,7,6,5,4,3,2,1 となっています。 > > ComboBox1のクリックで10,9,8,7,6を選んだ場合 > > （ComboBox1.Itemindexが0-4の場合）SpeedButton2を押下すると > > ComboBox1のTextがクリアーされてしまいます。 > > 5,4,3,2,1を選んだ場合は、変化なしです。 > > これは、ComboBox1がクリックされたときのItemindexを > > 覚えていて、ComboBox1.Items.DeleteでそのItemindexに相当するItemが > > なくなったので、親切にTextも消してくれるのでしょうか。 > > Edit部分は編集可能なはずなので、そっとしておいて欲しいのですが。 > > > > 追伸 > > 私は、 > > begin > > begin > > > > end; > > end; > > の方に一票です。 > > 他の場所から、begin〜endを持ってきて > > さしかえたり、間に入れたり、コメントにするときに > > ブロックとして分かりやすいためです（初心者好み）。 > > そのため、あとで整形するのに矩形選択でスペースの追加、 > > 削除もよく使います。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link