Du bekommst doch in der Message den Wert den du statt I einsetzen kannst um dann die Schleife wegzulassen.
Wahlweise kannst du auch statt dem Integer den 'Formnamen' eingeben.
embdwb1.OleObject.document.forms.item('vbform').elements.item('message').value := Value;
embdwb1.OleObject.Document.GetElementByID('Feldname').value := Value;
Kannst du auch testen.
Wenn du auf Embedded WB wechselst hast du z.B. FillForm, in dem du nur noch den Namen und die Message einträgst. Es gibt da schon einige Wege nach Rom.
Gruß
SM
Also geht es nur über die Schleife...
Den Embedded habe ich lange Zeit eingebaut, wollte jetzt die "Fremd"-Komponenten `mal reduzieren.
Ps:
Delphi-Quellcode:
try
if FormItem.Item(j).Name = 'FELDNAME' then ...
Wenn ich das richtig sehe vergleichst du dort die FormNamen mit dem Feldnamen. Das sollte auch so nicht funktionieren.
Da wirst Du wohl recht haben, hatte ich
hier gefunden.
Gruß
Rüd