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.
My Visual Database → General → 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.
Вам это нужно ?
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.
Вам это нужно ?
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
Вам это нужно ?
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
My Visual Database → General → script is not working
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi