Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
4. Mai 2004
Also, der Code von oben funzt nicht ganz, deshalb gibts das hier:
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
Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
4. Mai 2004
procedure TMainForm.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_RETURN then
begin
with ActiveMDIChild.WebBrowser1 do
begin
Navigate(combobox1.text);
SetFocus;
end;