Delphi はじめの一歩

タブブラウザを作る

<Lesson19> 見た目を整える

少し見た目を整えます。

線が多すぎる気がするので、左図のようにToolBar1のEdgeBordersプロパティを展開して、その中のebTopの値をFalseにしてください。
ToolBar2も同じようにしてください。

CoolBar1のAutoSizeプロパティをTrueにしてください。
すると、大きさが自動的に調整されます。

下図のようになっているのを確認してください。

一段にした方が良さそうなので、ToolBar2の左のつまみを上にドラッグして、下図のようにToolBar1のボタンの右に持ってきてください。

ToolBar2のOnResizeイベントを下記のようにしてください。
下記のソースは、ToolBar2のサイズが変わったとき、Edit1の幅を、ToolBar2の幅から２５引いた値にする。という意味です。
ボタンの幅が２３なので、少し余白を持たせて、２５としました。

[MainForm　ToolBar2　OnResizeイベント]

procedure TMainForm.ToolBar2Resize(Sender: TObject);
begin
  Edit1.Width := ToolBar2.Width -25;
end;

>> Lesson20に進む