|
...Copy, Delete, Cut in the TWebbrowser?
|
| Autor:
Thomas Stutz |
| [ Print tip
] | | |
uses
ActiveX;
// Copy the selected text to the clipboard
// Den markierten Text in die Zwischenablage kopieren
procedure TForm1.Button7Click(Sender: TObject);
begin
try
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;
// Cut the selected text
// Den markierten Text ausschneiden
procedure TForm1.Button8Click(Sender: TObject);
begin
try
WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;
// Delete the selected text
// Den markierten Text löschen
procedure TForm1.Button9Click(Sender: TObject);
begin
try
WebBrowser1.ExecWB(OLECMDID_DELETE, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;
initialization
OleInitialize(nil);
finalization
OleUninitialize;
end.
// as of Internet Explorer 4
// ab Internet Explorer 4
|
