Wie wird das OnChange-Ereignis von "Select" aufgerufen? (Delphi - WebBrowser)
Ich benutze Delphi und WebBrowser, um auf einer HTML-Seite zu navigieren. die seite hat eine combobox. Gibt es eine Möglichkeit, das OnChange-Ereignis aufzurufen?
Die ComboBox sieht so aus:
<select name="comboname" onchange="Some Javascript codes">
Auch habe ich diesen Code verwendet:
function TFrmMain.SetComboboxValue(WB: TEmbeddedWB;
SelectName, ItemName: string): Boolean;
var
iForms, iFormItems, iSelectItems: Word;
FormItem: OleVariant;
begin
Result := false;
for iForms := 0 to WB.OleObject.Document.Forms.length - 1 do
begin
FormItem := WB.OleObject.Document.Forms.item(iForms);
for iFormItems := 0 to FormItem.length - 1 do
begin
if (FormItem.item(iFormItems). type = 'select-one') and SameText
(FormItem.item(iFormItems).Name, SelectName) then
begin
for iSelectItems := 0 to FormItem.item(iFormItems).Options.length - 1 do
begin
if SameText(FormItem.item(iFormItems).Options.item(iSelectItems)
.Text, ItemName) then
begin
FormItem.item(iFormItems).SelectedIndex := iSelectItems;
Result := true;
Break;
end;
end;
end;
end;
end;
end;
Aber es ändert sich nur der Wert.