Delphi はじめの一歩
ブラウザを作る
<Lesson5> ボタン類を作る −（３）
|
|
ボタンの名前がToolButton1,ToolButton2等のままだと分かりづらいので、オブジェクト ツリーで名前を変えるボタンを選択し、オブジェクト インスペクタのNameプロパティで左図のようにそれぞれ分かりやすい名前に変えます。 |
|
次にフォーム上のツールバーを選択した状態（黒い点に囲まれた状態）で、コンポーネントパレットのStandardタブを選び、その中のEditアイコンをダブルクリックしてください。 すると、ツールバーにEditが張り付きます。 もし違う場所にEditを貼ってしまった場合は Lesson13 を見てください。 |
|
|
Editには一行のテキストが書き込めます。 ここでは、このEdit1はURLを入力するのに使います。 貼り付けたEdit1の右端の真ん中の黒点を右にドラッグして適当な長さにEdit1を伸ばしてください。 |
|
| もう一つツールバーにボタンを加えて、Edit1の右側にドラッグして移動ください。 Edit1に入力したURLに移動するのに使います。 |
|
|
オブジェクト インスペクタのNameプロパティでこのボタンの名前も分かりやすいように変えて、
イベントタブを選び、OnClickの右側の余白をダブルクリックして、下図のようにWebBrowser1.Navigate(Edit1.Text);と書き込みます。 これで、このボタンを押したときにEdit1に書いたURLに移動出来るようになりました。 |
|