Problem mit fehlender Variable bei EnumChildProc.

[BurtaN]

Hi!

ich stehe gerade irgendwie aufm Schlauch.

Delphi-Quellcode:

  zS:='PrimaryListView';
 EnumChildWindows(destwindow,@EnumChildProc,zS); //Destwindow : HWND

function TForm1.EnumChildProc(WND : HWND; HWNDName : String) : boolean;
var wText : Array [0..250] of Char;
begin
 GetWindowText(WND,wText,SizeOf(wText));
 If HWNDName=wText then
 begin
   destwindow:=WND;
   result:=false;
 end else
   result:=true;
end;

Delphi sagt mir immer,dass für EnumChildProc eine weitere Variable erforderlich ist, die eigentlich mit zS übergeben werden sollte.
Ich hatte auch schon einen Code Torry's Delphi page 1zu1 kopiert und da kam der gleiche Fehler.

Wäre super, wenn mir jemand helfen könnte!

BurtaN

[bitsetter]

Hallo,

du hast einfach aus der Funktion EnumChildProc eine Methode gemacht, du musst sie jedoch wieder aus dem private Abschnitt entfernen, also in etwa so:

Delphi-Quellcode:

function EnumChildProc(WND : HWND; HWNDName : String): Bool; stdcall; 
var wText : Array [0..250] of Char;
begin
GetWindowText(WND,wText,SizeOf(wText));
If HWNDName=wText then
begin
   destwindow:=WND;
   result:=false;
end else
   result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  zS:='PrimaryListView';
  EnumChildWindows(destwindow,@EnumChildProc,zS); //Destwindow : HWND
end;

[BurtaN]

Super, dankeschön!