名前 題名 ▼ takaさん > ▼ Saraさん > > 目的は達成されますが・・・できれば、Splitterをタッチ操作で動かしたい。 > > > > なにか良い方法はありませんでしょうか? > > > > ヘルプを見ると > Vcl.Controls.TControl.OnGesture にハンドラがあるので > > フリー版なのでソースコードがないので実態がわかりませんが、 > 非表示になっているだけですので > イベントを手動で代入して、ジェスチャーに反応するか試してみましたか? > > published > procedure Splitter1Gesture(Sender: TObject; > const EventInfo: TGestureEventInfo; var Handled: Boolean); > > procedure TForm1.FormCreate(Sender: TObject); > begin > Splitter1.OnGesture := Splitter1Gesture; > end; > > procedure TForm1.Splitter1Gesture(Sender: TObject; > const EventInfo: TGestureEventInfo; var Handled: Boolean); > begin > // コード > // showmesageとかなにかいれれば、反応をみれるかも? > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link