In fremdes Fenster schreiben [SunAwtCanvas]

[toms]

Zitat von wishdelphi:

hallo nochmal,

hatte leider vergessen die meldungen vom compiler anzugeben:

Code:

Variable 'hChild' ist möglicherweise nicht initialisiert worden

Hatte tatsaechlich etwas mit der Initialisation von hChild zu tun.
Brauchst nur noch hChild := 0; hinzuzufuegen, dann sollte die Funktion
korrekt ausgefuehrt werden.

Delphi-Quellcode:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND; 
var 
  i: Word; 
  hChild: HWND; 
begin 
  hChild := 0; // <-------------
  ChildNr := ChildNr - 1; 
  for i := 0 to ChildNr do 
  begin 
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil); 
    if hChild = 0 then 
      Exit; 
    Result := hChild; 
  end; 
end;