CaptureOptionDlg Example for Delphi 4.0
procedure TForm1.Button2Click(Sender: TObject);
var
nRet: L_INT;
begin
//disable errors to check for cancel
LEADScr1.EnableMethodErrors:= False;
LEADScr1.ShowHelpButton:= True;
//display capture option dialog
nRet:= LEADScr1.CaptureOptionDlg( Self, 0 );
if ( nRet <> SUCCESS ) then
begin
if ( nRet <> ERROR_USER_ABORT ) then
ShowMessage ( 'Error setting options!' );
end;
end;
procedure TForm1.LEADScr1ScreenDlgHelp(uDialogID: Cardinal; nCtlID: Integer);
begin
// set your code here
end;