コントロール"は親ウィンドウを持っていませんというエラーを止めるには？ (ID:29512)

名前

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

本文

このようなソースなんですが、

procedure TForm.Activate(Sender: TObject);
type
  t=array[1..100] of double;
var
  I:integer;
  FilesListView: TListView;
  CurrentPositionTime:t;
begin
  FilesCount:=100;
  //フォーム上のボタンをすべて破棄
  for I:=1 to FilesCount do
    if Assigned(FButton[I]) then
      FreeAndNil(FButton[I]);
  //現在メディアプレイヤーで見ている動画のファイル名とリストに格納している動画ファイルのファイル名が一致したときに、その動画を見ていたまでの時間をCurrentPositionTimeに格納する。
  for I:=1 to FilesCount do
    if WindowsMediaPlayer.URL=FilesListView.Items[I].Caption then
      CurrentPositionTime[I]:=WindowsMediaPlayer.Controls.CurrentPosition;
  //CurrentPositionTimeが60秒以上の場合、ボタンを作成する。
  for I:=1 to FilesCount do
    if CurrentPositionTime[I]>=60 then
    begin
      FButton[I]:=TButton.Create(self);
      FButton[I].Parent:=Form;
      FOwnerDrawButton[I].Left:=34;
      FOwnerDrawButton[I].Top:=34;
    end;
end;

ActiveXで作成したメディアプレイヤーをループモードにしているので、
動画を見終わったときに先頭に戻るため、CurrentPositionTimeに0秒から代入されます。
そして、FormをActiveにしたときに上のソースが実行されるのですが、
コントロール"は親ウィンドウを持っていませんとエラーが出てしまいます。

少々分かりにくい点がありまして、見にくいソースですがどうか教えていただけないでしょうか？？

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

戻る