Форум: "Основная";
Текущий архив: 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.009 c