Einzelnen Beitrag anzeigen

derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#5

AW: FindMemo, FindEdit

  Alt 7. Feb 2017, 17:31
Vielleicht hätte ich mehr Code zeigen sollen tut mir Leid..
Code:
Appl2 := FindWindow(nil, 'FormvonProgramm2');
if Appl2 <> 0 then                               //klappt:)
begin
  hbtn:= FindWindowex(Appl2,0,nil,'Textfeld');
    if hbtn<>0 then                              //klappt nicht:(... edit nicht gefunden.
    begin
    SendMessage(hbtn, WM_SETTEXT, 0, Textstring);
    end
  else showmessage('Edit nicht gefunden');
end
else showmessage ('appl2 nicht gefunden');
Mein Programm kommt garnicht zum Senden des Textes, da er das Edit nicht findet..
  Mit Zitat antworten Zitat