電卓に追加のボタンを作成するために以下のコードを記述しましたが、ボタンが表示されません:
var
Object1 : TButton ;
Hand: THandle;
begin
Hand:= FindWindow('CalcFrame', 'Calculator');
Object1 := TButton.CreateParented(Hand);
Object1.Show ;
end;
EnumChildWindow API関数を使用して上記のコードを実行した後、電卓でコントロールを取得し、EnumChildWindowが返すコントロールリストに作成されたボタンが表示されますが、作成されたボタンが表示されないのはなぜですか?
私が覚えているように、私はこのコードをWindows XPで使用し、問題なく動作しますが、Windows7では作成されたボタンが表示されません。