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

解決

とんとん  2004-08-20 22:46:38  No: 10472  IP: [192.*.*.*]

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

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

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

Delphi6 Professional (SP2 on Windows98)

編集    削除
スタテツ  2004-08-23 12:44:55  No: 10473  IP: [192.*.*.*]

ツールバーフォームであれば
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  IP: [192.*.*.*]

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

編集    削除
とんとん  2004-08-23 19:22:53  No: 10475  IP: [192.*.*.*]

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

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

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

編集    削除
とんとん  2004-08-23 22:04:49  No: 10476  IP: [192.*.*.*]

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

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

編集    削除
とんとん  2004-08-23 22:16:45  No: 10477  IP: [192.*.*.*]

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

編集    削除