ツールバーアプリケーション

解決

とんとん 2004-08-20 22:46:38 No: 10472

フォーム上のボタンをクリックしたら処理するという、単純なアプリケーションを
作成しようと思っています (ボタンは複数です)。

操作が単純なため、アプリケーションのウィンドウを、ツールバーのような
表示にしたいと思っています。
また付加価値として、そのウィンドウ (ツールバー？) は、浮遊したり
タスクバーの中に入れたり、画面の端にくっつく (Office ToolBarの
イメージ) ことができるような形にしたいのです。

実現することは可能でしょうか。
現在方法を検討しているのですが、どのようにすればいいか分からない状態です。
すみませんが、道筋だけでも与えていただけませんでしょうか。
よろしくお願いいたします。

Delphi6 Professional (SP2 on Windows98)

スタテツ 2004-08-23 12:44:55 No: 10473

ツールバーフォームであれば
Form1.BorderStyle:= bsSizeToolWin;
でできます。
Form1.ScreenSnap:=True;
でフォームがスクリーンの縁にスナップするかどうか指定できます。
（Delphi6であるか分からんですが。）
ちなみに他のアプリケーションのツールバー内に自作の見た目ツールバーを入れ込むのは不可能に近いです。目的がコレの場合は対象アプリのツールバー使用を学んでください。
タスクバーに入れるのはDelphian Worldにソース付きのサンプルがあります。
http://home1.infonia.ne.jp/~delphian/delphi/

TtPIPICH 2004-08-23 18:39:21 No: 10474

↑リンク切れ
http://delphianworld.com/

とんとん 2004-08-23 19:22:53 No: 10475

スタテツさん、TtPIPICHさん、ありがとうございます。

ScrrenSnapプロパティがなかったので、スナップの確認は
できませんでした (スナップというのはくっつくということですよね？)。

タスクバーへの入れ込みは、見た目を入れようと思っていましたので
断念します。(T-T

とんとん 2004-08-23 22:04:49 No: 10476

こんなのが見つかりました
http://forum.nifty.com/fdelphi/samples/00760.html

やってみたのですが、特殊な動作になりませんでした。
できましたらご指導願えませんでしょうか。
よろしくお願いいたします。

とんとん 2004-08-23 22:16:45 No: 10477

clFittingThreshold = 50 にセットしたところ、意図している動きとなりました。
失礼いたしました。

ツールバー アプリケーション

ツールバーアプリケーション