TPopupBoxとほぼ同じコードで見た目が違うのは何故でしょう (ID:151174)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

私はXE10.2 Tokyoなので、環境が違いますが、以下の手順でコンポーネントを登録してみたのですが、問題なく動きます。
不思議ですね。

(1)まず、各ファイルを保存するディレクトリを作成しておきます。
私は以下のディレクトリを作成しました。
Delphiのバージョンやユーザー名によって、適宜ディレクトリ名は設定してください。
C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox

(2)[ツール|オプション]
環境オプション→Delphiオプション→ライブラリ→ライブラリパス
の右にある[...]ボタンをクリックし、(1)のパスを追加しました。

(3)［コンポーネント｜コンポーネントの新規作成...］を選択すると、
   ［コンポーネントの新規作成］ウィザードが開きます。ウィザードに従います。

FireMonky for Delphi(F)」を選択→次へ

TPopupBox」を選択→次へ

クラス名「TCustomPopupBox」
ユニット名「C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox\UCustomPopupBox.pas」
検索パス「C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox」
→次へ

「新規パッケージへのインストール」を選択→次へ
パッケージ名「C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox\CustomPopupBox.dpk」
→完了

「C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox\UCustomPopupBox.pas」
で保存

確認ダイアログが表示されたら「はい」をクリック

(4)新規作成されたプロジェクト グループを保存
IDEの右上にある［プロジェクト マネージャ］のProjectGrpup1を右クリックして、
  ［プロジェクト グループに名前を付けて保存...］を選択し
「C:\Users\[ユーザー名]\Documents\Embarcadero\Studio\19.0\lib\CustomPopupBox\GCustomPopupBox.groupproj」
で保存しました。

(5)IDEの右上にある［プロジェクト マネージャ］のContains→UCustomPopupBox.pasをダブルクリックしてソースを表示
ソースコードを以下のように変更します。

unit UCustomPopupBox;

interface

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.ExtCtrls;

type
  TCustomPopupBox = class(TPopupBox)
  private
    { Private 宣言 }
    FItemsEx: TStrings;
    procedure SetItemsEx(Value:TStrings);
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published 宣言 }
    property ItemsEx:TStrings read FItemsEx write SetItemsEx;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TCustomPopupBox]);
end;

{ TCustomPopupBox }

constructor TCustomPopupBox.Create(AOwner: TComponent);
begin
  inherited;
  FItemsEx:=TStringList.Create;
end;

destructor TCustomPopupBox.Destroy;
begin
  FItemsEx.Free;
  inherited;
end;

procedure TCustomPopupBox.SetItemsEx(Value: TStrings);
begin
  FItemsEx.Assign(Value);
end;

end.

(6)IDEの右上にある［プロジェクト マネージャ］のCustomPopupBox.bplを右クリック→コンパイル
(7)IDEの右上にある［プロジェクト マネージャ］のCustomPopupBox.bplを右クリック→インストール

(8)ここでテスト用プロジェクトをプロジェクトグループに追加作成しても構いません
プロジェクトグループを右クリックして「新規プロジェクトを追加」をクリックします。
［新規作成］ダイアログ ボックスで、
［Delphi プロジェクト｜マルチデバイス アプリケーション｜空のアプリケーション］を選択します。
このプロジェクトでテストします。

←解決時は質問者本人がここをチェックしてください。

戻る