das ist jetzt exakt mein code:
Delphi-Quellcode:
procedure TForm1.GooglesucheChange(Sender: TObject);
var x :
string;
key : OleVariant;
begin
x := GoogleSuche.Text;
if key = #13
then
begin
ShellExecute(
handle,
nil, Pchar('
https://www.X.de'),
nil,
nil, SW_SHOW)
end;
end;
end.
Bloß das mit dem Enter klappt noch nicht so ganz
