Здравствуйте, Goffman, Вы писали:
<skipped>
А вот так — появляется?
procedure TForm1.FormCreate(Sender: TObject);
begin
with TButton.Create(Self) do
begin
ParentWindow := Self.Handle;
end;
end;
Вообще, CreateParented задуман для работы с не-VCL окнами. Этот конструктор запоминает переданное значение ParentWindow и вызывает Create(nil). Сам контрол при этом на экране не появляется — это происходит позже, в момент создания дескриптора окна, т.е. при прямом или косвенном обращении к свойству Handle.