ListSelect.pas

   1 unit ListSelect;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls;
   8
   9 type
  10         TListSelectDialog = class(TForm)
  11                 TitleLabel: TLabel;
  12     SelectComboBox: TComboBox;
  13                 KubetsuCheckBox: TCheckBox;
  14                 OkButton: TButton;
  15                 CancelButton: TButton;
  16     procedure FormCreate(Sender: TObject);
  17         private
  18                 { Private \90é\8c¾ }
  19   public
  20     { Public \90é\8c¾ }
  21   end;
  22
  23 var
  24   ListSelectDialog: TListSelectDialog;
  25
  26 implementation
  27
  28 {$R *.dfm}
  29
  30 procedure TListSelectDialog.FormCreate(Sender: TObject);
  31 var
  32     CenterForm: TCustomForm;
  33 begin
  34     CenterForm := TCustomForm(Owner);
  35     if Assigned(CenterForm) then begin
  36         Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
  37         Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
  38     end else begin
  39         Left := (Screen.Width - Width) div 2;
  40         Top := (Screen.Height - Height) div 2;
  41     end;
  42 end;
  43
  44 end.