In Fremdanwendung Text an die aktuelle Cursorposition senden

[KridRed]

Also ich hab mir einfach ne Funktion geschrieben, (nachdem das erste Edit Feld nach Hirarchie durchhangeln gefunden wurde) die in das nächste Editfeld "Jumpt"

Delphi-Quellcode:

function jmpwnd(hand:hwnd;anz:integer):hwnd;
var i:integer;
 begin
  for i:=1 to anz do hand:=getwindow(hand,gw_hwndnext);
   jmpwnd:=hand;
end;

dann folgendermassen ausgeführt:

Delphi-Quellcode:

 hMDIChildAcHisEd := FindWindowEx(hMDIChildAccHis,0,'_T_Edit',NIL);
       if hMDIChildAcHisEd <> 0 then begin
       //Wenn gefunden - Eintrag machen
       SendMessage(hMDIChildAcHisEd,WM_SETTEXT,0,integer(PChar(ComboBox2.Text)));
       //Handle vom ERSTEN Edit Feld finden...
       history:=FindWindowEx(hMDIChildAccHis,0,'_T_Edit',NIL);
       //...spring in das ZWEITE Edit Feld
       history:=jmpwnd(history,2);
        // ins 2.Edit Feld den Eintrag machen
        SendMessage(history,WM_SETTEXT,0,integer(PChar('ComboBox3.Text)));

Falls jemand mal das Problem mit gleichnamigen Klassennamen von Feldern haben sollte und in ein bestimmtes nen Eintrag machen will bzw. das Handle haben will.


Gruß,


Dirk