Hallo Leute,
könntest Ihr bitte allesamt mal wieder mit den Füßen auf den Boden zurückkehren? Und zwar jetzt.
Danke.
@PaulJr: Eine Sache hat sich hier in der
DP seit früher nicht geändert: Niemand hat ein verbrieftes Recht auf fertige Lösungen.
Dennoch bist Du ja von Deiner Lösung nicht weit entfernt. Dein letztes Problem besteht doch im Auffinden des Handles für das Editfeld. Mit dem Code von Christian grast Du doch alle Controls dieses Fensters ab und wirst innerhalb dieser Schleife früher oder später auch das Editfeld aufgelistet bekommen. Wenn in Deinem Fall der Typ des Feldes zur eindeutigen Identifizierung ausreicht, dann hast Du bereits gewonnen.
Delphi-Quellcode:
...
// Klassenname konnte nicht ausgelesen werden, dann fertig
if GetClassName(AhWindow,pCaption,255) = 0 then exit;
// Ist kein Button, dann fertig
if trim(UpperCase(pCaption)) <> 'BUTTON' then exit;
...
Die letzte Zeile dieses Blockes must Du abändern. Ich bin von Natur aus neugierung und würde erstmal per ShowMessage die Klassen aller gefundenen Controls anzeigen lassen (oder sonst wie, aber ShowMessage geht so schön schnell - wenn es schief läuft, hat man eben eine ganze Menge zu klicken
).
Wenn Du also siehst, dass Dein Editfeld dabei ist und mit seiner Klasse einzig ist, dann musst Du eben eine entsprechende IF-Konstruktion basteln, die diese Klasse berücksichtigt. Die Routine liefert dann das
Handle zurück und mit Luckies Code von oben kannst Du dann per
API den Text setzen.
Daniel R. Wolf
mit Grüßen aus Hamburg