掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CheckListBoxの▲クリックでCheckListBoxの幅を狭めたい (ID:45849)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ボタンを付けたくないならスクロールバーにこだわらなくていいんでないかい private { Private 宣言 } procedure EnterCheckListBox; procedure LeaveCheckListBox; ------- procedure TForm1.CheckListBoxEnter(Sender: TObject); begin EnterCheckListBox; end; procedure TForm1.CheckListBoxExit(Sender: TObject); begin LeaveCheckListBox; end; procedure TForm1.CheckListBoxMouseLeave(Sender: TObject); begin LeaveCheckListBox; end; procedure TForm1.CheckListBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EnterCheckListBox; end; procedure TForm1.EnterCheckListBox; begin CheckListBox.Height:=CheckListBox.ItemHeight*5; end; procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to 9 do CheckListBox.Items.Add(IntToStr(i)); end; procedure TForm1.LeaveCheckListBox; begin CheckListBox.Height:=CheckListBox.ItemHeight+4;//適当 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.