Скачать: CL | DM;

Проблемы с 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c