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

EnumChildWindow   Найти похожие ветки 

← →
Sigetta ©   (2004-12-08 10:42) [0]

Привет.
EnumChildWindow в W98 работает нормально, в 2000 выдает ошибку.
В 2000 ее нет или она по другому вызывается/именуется?
Спасибо.

---

← →
Игорь Шевченко ©   (2004-12-08 10:50) [1]

Работает нормально.
Код в студию.

---

← →
Sigetta ©   (2004-12-08 10:58) [2]

procedure WNDENUMPROC(var LParam : Integer);
begin
 FMain.Tag:=FMain.Tag+1;
//  LParam:=LParam;
end;

procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
 LParam      : Integer;
begin
 LParam:=0;
 FMain.Tag:=0;
 EnumChildWindows(FMain.Handle,@WNDENUMPROC, LParam);
//  If FCount=0 Then
 if (FMain.Tag=3) or (FCount=0) then
 Begin
   FDM.VOst.Filtered:=False;
   FDM.SVOst.Filtered:=False;
   FDM.Rasx.Filtered:=False;
   FDM.Prix.Filtered:=False;
 End;
 CanClose:=(FMain.Tag=3) or (FCount=0);
end;

---

← →
Игорь Шевченко ©   (2004-12-08 11:05) [3]

> procedure WNDENUMPROC(var LParam : Integer);


заменить на

procedure WNDENUMPROC(Wnd: HWND; LParam : Integer); stdcall;

С уважением,

---

← →
Leonid Troyanovsky   (2004-12-08 11:55) [4]

> Sigetta ©   (08.12.04 10:58) [2]
> procedure WNDENUMPROC(var LParam : Integer);
> begin
>  FMain.Tag:=FMain.Tag+1;
> //  LParam:=LParam;
> end;


Кроме того, что посоветовал Игорь (кстати, там д.б. функция
function EnumWindowsProc(whd: HWND;  
alparam: LParam): Bool; stdcall; ),
могу посоветовать никогда не использовать в регулярных
процедурах такие вещи как FMain (а еще лучше - навсегда
забыть о ее существовании).
Для EnumProc есть пользовательский параметр, если надо
можно привести тип (хоть к TFMain).

--
С уважением, LVT.

---

Страницы: 1 вся ветка

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



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