次のサンプルアプリケーションでは、電卓ボタンを押すと半透明の数値入力フォームが表示されます。
フォーカスが他のコンポーネントに移ると、数値入力フォームは自動的に閉じます。
フォームは次のようになります。
数値入力フォームはTPopupコンポーネントを使って実現します。
TGridPanelLayoutを使ってボタンを並べました。
TPopupコンポーネントを表示すると次のようになります。
Opacityプロパティを「0.5」にしているため、半透明になり、下のコントロールが表示されています。
電卓ボタンが押されると数値入力フォームを表示します。
procedure TForm1.Button1Click(Sender: TObject);
begin
Popup1.PlacementTarget := Edit1;
Popup1.IsOpen := True;
end;
TPopupコンポーネントのPlacementTargetプロパティにEdit1を設定して、Edit1の下にウィンドウを表示するようにします。
Popup1.PlacementTarget := Edit1;
IsOpenプロパティをTrueにしてウィンドウを表示します。
Popup1.IsOpen := True;
以上で、半透明の数値入力フォームが表示されます。