Insertar Registros

[cloayza]

Estimado Eduar23, creo entender que lo que requiere, le propongo este código...
Este contiene 1 Checkbox, 2 TEdit, 2 TButtons y 1 TMemo.

Principalmente lo que se hace es manipular el valor de ModalResult del botton btnSave, cambiando su valor a mrOk o mrNone. El botton btnCancel está asignado como mrCancel.

Al desplegar el formulario con ShowModal, este espera un valor de retorno (mrOk, mrCancel,...) si el valor de retorno es mrNone, el formulario no se cierra.

Para ello se hace uso del control chkDigitMode que al ser verdadero, asigna mrNone al botón btnSave, quedando en un ciclo hasta presionar el botón btnCancel o la tecla ESC.

Código Delphi [-]
unit Unit2;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    btnSave: TButton;
    btnCancel: TButton;
    chkDigitMode: TCheckBox;
    mmData: TMemo;
    procedure btnCancelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InsertData(v1,v2:String);
    procedure ClearEdits();
    class procedure Execute();
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btnSaveClick(Sender: TObject);
begin
     InsertData(Edit1.Text,Edit2.Text);

     ClearEdits();

     Edit1.SetFocus;

     if chkDigitMode.Checked then
        ModalResult:=mrNone
     else
        ModalResult:=mrOk;
end;

procedure TForm2.btnCancelClick(Sender: TObject);
begin
     Close;
end;

procedure TForm2.InsertData(v1,v2:String);
begin
     mmData.Lines.Add(format('Value 1:%s, Value 2:%s',[v1,v2]));
end;

procedure TForm2.ClearEdits;
begin
    Edit1.Text:=Emptystr;
    Edit2.Text:=Emptystr;
end;

class procedure TForm2.Execute;
begin
     with TForm2.Create(nil) do
     begin
          btnSave.ModalResult  :=mrOk;
          btnCancel.ModalResult:=mrCancel;

          ClearEdits();

          ShowModal;

          free;
     end;
end;

end.

Código Delphi [-]
unit Unit1;

interface
...

uses Unit2;
begin
     //Llamada a formulario de digitación...
     TForm1.Execute();
end

Bueno espero le ayuda o de ideas para solucionar su problema...Saludos cordiales

[aledieb]

Hola, el problema que veo es que estas usando un form modal, no importa que hagas si usas ModalResult por defecto el form se va a cerrar, además no estas controlando el resultado del form2, Lo que podes hacer en el btnSaveClick anular la condición:

Código Delphi [-]
     if chkDigitMode.Checked then
        ModalResult:=mrNone
     else
        ModalResult:=mrOk;

En el botón cancelar cerrar el form y en el aceptar/grabar solo grabar.

[cloayza]

Estimado aledieb probó el código?

Lo invito a que lo haga...y verá que está errado...

Saludos cordiales

[aledieb]

Empezado por cloayza

Estimado aledieb probó el código?

Lo invito a que lo haga...y verá que está errado...

Saludos cordiales

Recién probé el código, y se ejecuta como un form modal.

Y si estaba errado porque no vi el free al final.

Hice una modificación cambiando el showmodal por show y el form permanece en pantalla, siempre y cuando no deje el free.

Código Delphi [-]
class procedure TForm2.Execute;
begin
     with TForm2.Create(nil) do
     begin
          btnSave.ModalResult  :=mrOk;
          btnCancel.ModalResult:=mrCancel;

          ClearEdits();

          Show;

//          free;
     end;
end;

Hacer algo así el form se ejecutaría como desea (el código original) Sin probar

Código Delphi [-]
uses Unit2;
begin
     //Llamada a formulario de digitación...
     while condicion do 
     begin
        TForm2.Execute();
     end;
end

[aledieb]

Estima cloayza, mis sinceras disculpas.

Mire con mas cuidado e interprete mal el código (no vi el checkbox)

[cloayza]

Empezado por aledieb

Estima cloayza, mis sinceras disculpas.

Mire con mas cuidado e interprete mal el código (no vi el checkbox)

Estimado colega, pierda cuidado. Lo importante es que en esta comunidad estamos para dar una mamo, ser criticos y por sobre todo aportar...

Saludos cordiales

[Eduard23]

gracias estimado cloayza fue de gran ayuda su consejo con esto puder resolver mi problema muchas gracias y hasta una proxima vez