and for the no. 1 need to add the following lines in: procedure TForm1.Timer2Timer(Sender: TObject);
var
vaIn, vaOut: olevariant;
if event = 9 then
begin
(TLazBrowser(PageControl1.ActivePage.Controls[0]).ComServer as
IWebbrowser2).ExecWB (OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;
if event = 10 then
begin
(TLazBrowser(PageControl1.ActivePage.Controls[0]).ComServer as
IWebbrowser2).ExecWB (OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;
if event = 11 then
begin
(TLazBrowser(PageControl1.ActivePage.Controls[0]).ComServer as
IWebbrowser2).ExecWB (OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;
if event = 12 then
begin
(TLazBrowser(PageControl1.ActivePage.Controls[0]).ComServer as
IWebbrowser2).ExecWB (OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;
and these lines in function KeyboardHookProc(Code, wParam, lParam: longint): longint; stdcall;
if wParam = Ord('V') then
begin
Result := 1;
form1.handle_event := 9;
form1.timer2.Enabled := True;
exit; // Paste
end;
if wParam = Ord('C') then
begin
Result := 1;
form1.handle_event := 10;
form1.timer2.Enabled := True;
exit; // Copy
end;
if wParam = Ord('X') then
begin
Result := 1;
form1.handle_event := 11;
form1.timer2.Enabled := True;
exit; // Cut
end;
if wParam = Ord('A') then
begin
Result := 1;
form1.handle_event := 12;
form1.timer2.Enabled := True;
exit; // Select All
end;
Cheers