AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Handle aller Controls

Ein Thema von Neutral General · begonnen am 7. Dez 2004 · letzter Beitrag vom 7. Dez 2004
Antwort Antwort
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Handle aller Controls

  Alt 7. Dez 2004, 14:48
Ich weis das es da schon viele Fragen zu gab aber ich konnte nichts Hilfreiches finden.
Ich will doch nur 1 Handle
Das von dem Richedit von ICQ wo die gesendeten Nachrichten drinstehn.
Und ich kapier das mit dem Enum-Zeug nicht
Kann mir jemand helfen ?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
perle

Registriert seit: 8. Apr 2004
183 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Handle aller Controls

  Alt 7. Dez 2004, 15:40
ich übernehme keine Garantie aber das Handle dürftest du ungefähr so bekommen

Delphi-Quellcode:
...
var
  icq_hwnd : Cardinal;
...
  icq_hwnd := FindWindowEx(FindWindow(nil, '1111111 - Message Session'), 0, 'RichEdit20A', nil);
...
Die Handles der Richedits der einzelnen Nachrichtenfenster unterscheiden sich natürlich. Ich denke mal du musst einfach nur die 1111111 durch die UIN deines Gesprächspartners austauschen und hast dann das richtige Handle, ansonsten tausche die gesamte Caption des Nachrichtenfensters aus falls sie weiter abweicht.
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

Re: Handle aller Controls

  Alt 7. Dez 2004, 16:33
Das Handle des Fensters hab ich ja. Aber es gibt 2 'RichEdit20A' und man bekommt immer nur das erste ...
Aber ich habe bereits ne Lösung durch einen anderen Beitrag gefunden.
Danke trotzdem für die Hilfe
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
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
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

Re: Handle aller Controls

  Alt 7. Dez 2004, 16:47
Danke, ich werds ausprobieren aber es funktioniert ja schon
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz