FindMemo, FindEdit

[derseitzer]

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..

[EWeiss]

Verwende bitte die Delphi Formatierung für Delphi Code.. Danke.

Der Code kommt nur BIS zu deiner Anwendung.
Wie ich schon sagte du musst die ChildWindows enumerieren bis du das handle des TEdit erfahren hast.

Dann habe ich dich gebeten dir einmal die Funktion von FindWindowEx anzusehen. (Hast gemacht?)
Wenn ja dann würdest du verstehen warum FindWindowEx nicht funktioniert mit einem Handle 0 für das ChildWindow
Was also willst du finden mit einem 0 Handle ? Ohne das du in dem Fremden Fenster die ChildWindows enumerierst.

Zitat:

Retrieves a handle to a window whose class name and window name match the specified strings. The function searches child windows, beginning with the one following the specified child window. This function does not perform a case-sensitive search.

Wenn du das Handle nicht kennst in dem fall wenn du 0 übergibst must du das Window (Der Anwendung) enumerieren bis du das korrekte Handle in Erfahrung gebracht hast.
Wenn du 0 eingibst beginnt die suche nach dem Handle in der ZOrder so wie die Controls auf deinem Window abgelegt sind.


gruss

[Der schöne Günther]

Zitat von derseitzer:

Mein TEdit im Programm 2 heißt 'TextFeld'

Zitat von derseitzer:

Code:

  hbtn:= FindWindowex(Appl2,0,nil,'Textfeld');

Fällt dir was auf?

[EWeiss]

Beispiel. (copy\paste)

Delphi-Quellcode:

function EnumChildProc(AHandle: THandle; AItems: TStrings): BOOL; stdcall;
var
  buffer: array[0..255] of Char;
  caption: array[0..255] of Char;
begin
  Result := True;
  GetClassName(AHandle, buffer, SizeOf(buffer)-1);
  SendMessage(AHandle, WM_GETTEXT, 256, Integer(@caption));

  AItems.Add(Format('Handle: %d, Class: %s, Text: %s', [AHandle, buffer, caption]));
end;

//...

procedure TForm1.Button1Click(Sender: TObject);
var
  wHnd: THandle;
  wCls: PChar;
begin
  wCls := PChar('YourTopWindowClassName'); // ex. TForm1
  wHnd := FindWindow(wCls, nil);
  ListBox1.Clear;
  // Get window controls into the listbox 
  EnumChildWindows(wHnd, @EnumChildProc, Integer(ListBox1.Items));
end;

gruss

[derseitzer]

Günter tut mir Leid beide heißen 'Textfeld'.. nicht 'TextFeld'.. mein Fehler
EWeiss hmm okay ich versuche es damit.

[EWeiss]

Zitat von derseitzer:

Günter tut mir Leid beide heißen 'Textfeld'.. nicht 'TextFeld'.. mein Fehler

Spielt keine Rolle solange der Namen stimmt, ob 'Textfeld' oder 'TextFeld' case sensitive sollte dabei nicht berücksichtigt werden.
Günther meint etwas anderes.. vergleiche doch einfach mal die Parameter die du mit FindWindowEx übergibst.

Zitat:

EWeiss hmm okay ich versuche es damit

Na ja es zwingt dich niemand dazu.

gruss

[derseitzer]

so sollte das nicht rüberkommen :'D Vielen Dank für den Code ich werds auf jedenfall ausprobieren!

[EWeiss]

Zitat von derseitzer:

so sollte das nicht rüberkommen :'D Vielen Dank für den Code ich werds auf jedenfall ausprobieren!

Habe es für dich schon gemacht.
TMemo und TEdit haben nun ein Handle dieses kannst du nun verwenden um Messagen (Text) an das Memo zu senden.

gruss

[derseitzer]

tut mir leid dass ich so spät schreibe, war abendessen oh wow vielen vielen dank!!