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