Проблемы с SetWindowPlacement

← →
akiro © (2004-02-16 16:29) [0]

При вызове SetWindowPlacement для динамичеки создаваемой формы программа виснет. Объясните пожалуйста в чем дело.
Выполняется нормально:
procedure TfmMain.LoadWindowAttributes;
var
varWindowPlacement : TWindowPlacement;
varRegistry : TRegistry;
begin
varRegistry := TRegistry.Create;

with varRegistry
do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(sRsRegistryPath,True);
ReadBinaryData(sRsWindowPlacement,varWindowPlacement,SizeOf(varWindowPlacement));
SetWindowPlacement(Handle,@varWindowPlacement);
finally
CloseKey;
Free;
end;

После этого виснет:
procedure TfmNodeList.LoadInfFromRegistry;
var
varWindowPlacement : TWindowPlacement;
varRegistry : TRegistry;
begin
varRegistry := TRegistry.Create;

with varRegistry
do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(sRsRegistryPath,True);
ReadBinaryData(sRsWindowListsPlacement,varWindowPlacement,SizeOf(varWindowPlacement));
SetWindowPlacement(Handle,@varWindowPlacement);
finally
CloseKey;
Free;
end;
end;

← →
Бином Ньютоныч (2004-02-16 18:44) [1]

Дело в этом: with varRegistry
Напиши SetWindowPlacement(Self.Handle,@varWindowPlacement);

← →
Бином Ньютоныч (2004-02-16 18:51) [2]

Хотя нет, извиняюсь

Проблемы с SetWindowPlacement Найти похожие ветки