喫茶XRAY [Mr.XRAY掲示板]

▼ takaさん

こんばんは。　ありがとうございます。

> ヘルプを見ると
> 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;

これは、試していません。

ただ、実際にタブレットで使ってみると、Windows10のExplorerがタッチで
Splitter以外の部分で自由自在(?)にサイズ変更等ができるのですが、
その使用感に合わせようとすると、Splitterではなく、TreeViewやListview
のスクロールバー付近等で反応するようにしないといけないかなと・・・
となると、ジェスチャーでは厳しそうなのですよね・・・

なので、WM_TOUCHを駆使して各コンポーネントの座標をもとに動作するように
したほうがよさげと言う・・・めんどくさそうですが・・・

でも、まぁ　せっかく情報を頂けたので、WM_TOUCHを試す前に試してみます。
（もっとも、Splitterの幅的な問題で、ジェスチャーが反応しない可能性が・・・
　Splitterの幅をスクロールバー程度まで太くすればいけるか？
　ダメもとでスクロールバー以上の幅にしたときもSplitterは上手く
　動かなかったんですよね・・・(^^;　）