Delphi はじめの一歩

ブラウザを作る

<Lesson11> もう少し機能を加える

少し見栄えを良くしましょう。
ボタンを平らにした方が見栄えがいいような気がするので平らにします。
ToolBar1、ToolBar2のFlatプロパティをそれぞれTrueにしてください。
これでボタンが平らになります。

下図のようになります。
作業時は少し出っ張ってますが実行時は完全に平らになり、マウスポインタをボタンの上に持っていった時だけ、ボタンが少し出っ張るようになります。

下図は新しくWebページを読み込んだ時に、Edit1にそのページのURLを表示する処理です。
OnNavigateComplete2イベントはある程度読込が完了して、操作が出来るようになった頃に発生します。
LocationURLは今表示しているWebページのURLです。

下図は、Webページのタイトルが変わったときに、アプリケーションのタイトルバーに、そのタイトルを表示させる処理です。
Selfは自分自身、この場合はForm1で、FormのCaptionプロパティはタイトルバーに表示されるテキストです。
ここでのTextは新しいWebページのタイトルです。