Formulário

[Januário mendes]

Oi Pessoal tudo bem

eu estou fazendo um software e preciso colocar um comando para que o formulário só seja acessado depois que anterior for cadastrado... tipo assim eu tenho o formulário principal ae eu quero acessar o outro que é o secudário só depois que o principal seja preenchido se não for prenchido mandar uma mensagem

agradeço a ajuda flwwwww abraço. :rolleyes: <_<

[Jhonas]

tenho o formulário principal ae eu quero acessar o outro que é o secudário só depois que o principal seja preenchido se não for prenchido mandar uma mensagem

Use uma variavel de controle no formulario principal ... caso o formulario principal tenha sido preenchido, voce atribui o valor 1 a variavel ... caso contrario voce atribui 0.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if cadastro = 1 then
      form2.showmodal
   else
      MessageDlg('Cadastro não Preenchido, mtInformation,
      [mbOk], 0);
   end;
end;

abraço

[Januário mendes]

tenho o formulário principal ae eu quero acessar o outro que é o secudário só depois que o principal seja preenchido se não for prenchido mandar uma mensagem

Use uma variavel de controle no formulario principal ... caso o formulario principal tenha sido preenchido, voce atribui o valor 1 a variavel ... caso contrario voce atribui 0.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if cadastro = 1 then
      form2.showmodal
   else
      MessageDlg('Cadastro não Preenchido, mtInformation,
      [mbOk], 0);
   end;
end;

abraço

então véio flwww fiz isso que você falou mais agora mesmo eu colocando todos os dados no formulário ele fala que cadastro não preenchido

coloquei esse código

procedure TfrmDados.FormClick(Sender: TObject);

var Cadastro:Integer;

begin

if Cadastro = 1 then

frmDados.showModal

else

MessageDlg('Cadastro não Preenchido .', mtInformation,

[mbOk], 0);

end;

end.

[Jhonas]

Para voce verificar como isso funciona, num form coloque 1 botao e 3 edits

OBS: se um dos edits não tiver preenchido, uma mensagem avisará o usuario que tem algum edit sem preenchimento

e desta maneira não poderá ir para outro form

exemplo:

var
  Form1: TForm1;
  cont : integer = 0;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i , cadastro: Integer;
begin
  for i := 0 to ComponentCount -1 do
    begin
      if Components[i] is TEdit then
         begin
            if TEdit(Components[i]).Text <> '' then
               cont := cont + 1
            else
               cont := 0;

    end;

   if cont > 0 then
     cadastro := 1
   else
     cadastro := 0;

   if Cadastro = 1 then
      frmDados.showModal
   else
      MessageDlg('Cadastro não Preenchido .', mtInformation,
      [mbOk], 0);
   end;


end;

Voce deve modificar o codigo para seu uso

abraço