Thema: Delphi Handle aller Controls

Einzelnen Beitrag anzeigen

Benutzerbild von Boombuler
Boombuler

Registriert seit: 14. Mär 2003
Ort: Osnabrück
244 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Handle aller Controls

  Alt 7. Dez 2004, 16:44
Bin mir nich sicher weil ichs nich getestet hab aber das sollte klappen:


Delphi-Quellcode:
function getRichEditNr(ICQNr, editNr:Integer):cardinal;
var i:integer;
begin
  result := 0;
  dec(editNr);
  for i := 0 to editNr do
  begin
    result := FindWindowEx(FindWindow(nil, PChar(Inttostr(ICQNr)+' - Message Session')), result, 'RichEdit20A', nil);
    if result = 0 then
      Exit;
  end;
end;
Dann solltest du das Handle mit

Delphi-Quellcode:
  ....
Handle := getRichEditNr(11111111, 1); //für das erste Edit
                                      //bzw.
Handle := getRichEditNr(11111111, 2); //für das zweite Edit
  ....
bekommen...

Greetz
Boombuler
  Mit Zitat antworten Zitat