Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизПроблемы с 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]Хотя нет, извиняюсь
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.064 c