Delphi

procedure TForm1.StartCapture(Sender: TObject; hwnd: Integer; x1: Integer; y1: Integer; x2: Integer; y2: Integer);
begin
  {perform the capture}
end;

....................

wMonitor.OnWEvent := StartCapture;

Comments