DELPHI コントロール開発は奥深くて簡単
「コントロールを開発できない Delphi プログラマは本物のプログラマではない」と誰かが言いました。 Delphi が無数のプログラマーの厳しい目を集めることができるのは、まさにその高い拡張性と多数のサードパーティ コントロールのサポートがあるためです。仕事で他の開発ツールを使用する必要がある開発者でさえ、昼も夜も Delphi を使用したことを恋しく思うことがよくあります。 Delphi に出会ってから 1 年以上が経ちました。Delphi コンポーネント パネルにある何百ものコントロールに圧倒されましたが、今では必要に応じていくつかの難しいコントロールを開発できるようになりました。私が歩んできた道は非常に長いものでした。難しいので、この記事を書き、私の後に続く人たちに私の経験を残すことは、私の「後輩」への寛大な贈り物とみなすことができます。
説明する必要があるのは、この記事を書く前に、読者がオブジェクト指向の基本的な知識をすでにある程度理解していることを前提としているため、オブジェクト指向に関連する概念については詳しく説明しないことです。記事の中で。
1. トライアル テスト - TURLLabel コントロール
ハイパーリンクを追加できるラベル コントロールからコントロール開発の旅を始めましょう。
Label なので、このコントロールを Tlabel から派生させましょう (実際には TcustomLabel から派生するのが最善ですが、ここでは簡単にするために Tlabel から派生させます)。
1. [ファイル]->[新規]->[コンポーネント]を選択すると、次のダイアログ ボックスが表示されます。
祖先タイプで Tlabel を選択し、ClassName に TURLLabel を入力します (名前は任意のテイクを指定できますが、T で始まる必要があります。そうしないと、コントロールを登録するときに問題が発生します)。ここで、Ancestor タイプはコントロールの基本クラスを表し、TURLLabel はコントロールの名前を表します。
2. ハイパーリンクの視覚効果はテキストに下線が引かれているため、親クラスのコンストラクターをオーバーライドし、コンストラクター内のコントロールのフォント属性を変更します。