Also vorerst..
ich hab keine ahnung ob das funkitoniert
in der wbcrtl.pas findet man folgendes:
Delphi-Quellcode:
function WbSetCheckBoxField(WebBrowser: TWebBrowser; FieldName: string; Checked: boolean): Boolean;
var
Field: TPoint;
begin
// Position des Felds holen
if not WbFindField(WebBrowser, FieldName, Field) then
begin
Result := false; // Feld existiert nicht
exit; // Ende
end;
try
// CheckBox setzen
WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).Checked := Checked;
Result := True;
except
Result := false;
Exit;
end;
end;
Damit setzt man den Check-Status der Checkbox.
Eventuell geht das ja auch so:
Delphi-Quellcode:
function WbSetBoxIndex(WebBrowser: TWebBrowser; FieldName: string; index: integer;): Boolean;
var
Field: TPoint;
begin
// Position des Felds holen
if not WbFindField(WebBrowser, FieldName, Field) then
begin
Result := false; // Feld existiert nicht
exit; // Ende
end;
try
// Setzten
WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).itemindex:= index;
Result := True;
except
Result := false;
Exit;
end;
end;
überhaupt nicht getestet , nur reine vermutung..