• Registered: 2020-10-26
  • Posts: 25

Topic: script is not working

M.V.D.B Solvers...........
i am working on a project but script is not working work only 1 script is working but i have insert 3 scripts.
https://i.ibb.co/k888jnB/D1.png

Post's attachments

Attachment icon Project.rar 297.44 kb, 171 downloads since 2021-03-02 

2 Reply by sibprogsistem (edited by sibprogsistem 2021-03-02 13:57:28)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: script is not working

Вам это нужно ?

procedure Data_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Data.SetFocusNextControl;
    Data.bSave.Default := False;
    end;
end;

procedure Info_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Info.SetFocusNextControl;
    end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.frxReport.PreviewOptions.Buttons := pbPrint+pbLoad+pbSave+pbExport+pbZoom+pbFind+pbOutline+pbPageSetup+pbTools+pbEdit+pbNavigator+pbExportQuick+pbNoClose+pbNoFullScreen+pbNoEmail;
end;


begin
end.
  • Registered: 2020-10-26
  • Posts: 25

Re: script is not working

sibprogsistem wrote:

Вам это нужно ?

procedure Data_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Data.SetFocusNextControl;
    Data.bSave.Default := False;
    end;
end;

procedure Info_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Info.SetFocusNextControl;
    end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.frxReport.PreviewOptions.Buttons := pbPrint+pbLoad+pbSave+pbExport+pbZoom+pbFind+pbOutline+pbPageSetup+pbTools+pbEdit+pbNavigator+pbExportQuick+pbNoClose+pbNoFullScreen+pbNoEmail;
end;


begin
end.

Thanks for you help i will check and tell you

  • Registered: 2020-10-26
  • Posts: 25

Re: script is not working

sibprogsistem wrote:

Вам это нужно ?

procedure Data_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Data.SetFocusNextControl;
    Data.bSave.Default := False;
    end;
end;

procedure Info_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then begin
    Info.SetFocusNextControl;
    end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.frxReport.PreviewOptions.Buttons := pbPrint+pbLoad+pbSave+pbExport+pbZoom+pbFind+pbOutline+pbPageSetup+pbTools+pbEdit+pbNavigator+pbExportQuick+pbNoClose+pbNoFullScreen+pbNoEmail;
end;


begin
end.

not working