delphi drücken Sie enter

Wie kann ich ein edit-Feld, so dass, wenn ich getroffen geben Sie mit dem cursor noch in ihm. Dann geht es zu, dass die website im webbrowser wurde in die edit-box?

kann mir jemand helfen?

Wie viel Programmier-Kenntnisse haben Sie bislang?
Was ist webbrowser? Eine TWebBrowser-Komponente in Ihr Formular, oder einfach nur mit dem system-browser?

InformationsquelleAutor drevet | 2011-03-16

  1. 16

    Sollten Sie die OnKeyPress - Ereignis anstelle von das OnKeyDown Veranstaltung:

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ord(Key) = VK_RETURN then
  begin
    Key := #0; // prevent beeping
    WebBrowser1.Navigate(Edit1.Text);
  end;
end;
    +1 "Sollte" ist ein starkes Wort, aber sicher-dies wird entfernen Sie den beep (entfernen Sie die syntax-Fehler, damit der code kompiliert werden!).
    OK, ich Tat es für Sie!
    Hey, würdet Ihr zu erklären, warum OnKeyPress verwendet werden sollte, anstatt OnKeyDown?

    InformationsquelleAutor Remy Lebeau

  2. 6

    Drop ein TEdit und ein TWebBrowser auf die form und schreiben Sie eine Ereignisprozedur für das Steuerelement Bearbeiten, nämlich OnKeyDown:

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:
      WebBrowser1.Navigate(Edit1.Text);
  end;
end;

    Machen es etwas eleganter, würde ich vorschlagen,

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:
      begin
        WebBrowser1.Navigate(Edit1.Text);
        Edit1.SelectAll;
      end;
  end;
end;

    Update

    Wenn Sie lieber möchten Sie die URL zu öffnen, die in das system der Standard-browser und nicht in einem TWebBrowser auf Ihrem Formular ersetzen WebBrowser1.Navigate(Edit1.Text) mit

    ShellExecute(0, nil, PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);

    nachdem Sie Hinzugefügt haben ShellAPI zu Ihrer uses-Klausel. Aber jetzt sehen Sie, dass Sie haben explizit mit dem Protokoll. Zum Beispiel bbc.co.uk wird nicht funktionieren, aber http://bbc.co.uk wird.

    InformationsquelleAutor Andreas Rejbrand

Schreibe einen Kommentar