Also, der Code von oben funzt nicht ganz, deshalb gibts das hier:
Delphi-Quellcode:
procedure TMainForm.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
BrowserForm: TBrowser; //Erklärung 1
begin
if key = VK_RETURN then
begin
BrowserForm := TBrowser(ActiveMDIChild); //Erklärung 2
if BrowserForm <> nil then //Erklärung 3
begin
with BrowserForm.WebBrowser1 do
begin
Navigate(combobox1.text);
SetFocus;
end;
end
else
MessageDlg('Kein Fenster geöffnet!',mtError,[mbOk],0);
end;
end;
Erklärungen:
1. Du musst eine temporäre Variable vom Typ TBrowser erstellen, diese wird benötigt...
2. ActiveMDIChild gibt dir ein TForm-Objekt, zurück, wir brauchen aber eins vom Typ TBrowser, dieses speichern wir in unserer temporären Variable
3. Ist ein Child ausgewählt, so navigieren wir in dessen WebBrowser, andernfalls geben wir eine Fehlermeldung aus.
Ich hoffe der Code ist einigermaßen verständlich...