[resolvido] Caixa Opcional Com Checkbox

[vms]

a duvida é o seguite:

criei 3 form (form1),(form2),(form3)

quero abrir o form3 com um botao, mas antes de abrir o form3 vai abri o form2 com um CheckBox(um tipo caixa de advertencia), queria fazer do form2 uma caixa opcional usando o CheckBox, quando habilitado, form1 abrirar o form3 direto.

[Micheus]

vms, acho que seriam estas etapas:

- no form1 declare uma variável local (em private) do tipo boolean;

- no form2 crie um método que obtenha um retorno indicando que o form deva ou não ser mostrado numa próxima vez; Este método é responsável por mostrar o form e retornar o valor do checkbox;

- no form1 você testa a variável booleana para ver se vai ou não mostrar o form2.

no Form1:

type
  TForm1 = class(TForm)
    ...
  private
    ShowForm2 :Boolean;
    ...
  end;
...
procedure TForm1.Form1Create(Sender :TObject);
begin
  ShowForm2 := True;
  ...
end;

procedure TForm1.BtnShowForm(Sender :TObject);
begin
 // mostrará o Form2 apenas se variável for verdadeira
  if ShowForm2 then
  begin
    Form2 := TForm2.Create(Slef);
    try
      ShowForm2 := Form2.ShowForm;  // se o cara desmarcar, então na próxima vez ShowForm2 será false
    finally
      Form2.Free;
    end;
  end;

  Form3 := TForm3.Create(Slef);
  try
    Form3.ShowModal;
  finally
    Form3.Free;
  end;
end;

no Form2:

type
  TForm2 = class(TForm)
  public
    function ShowForm :Boolean;
  end;
...

function TForm2.ShowForm :Boolean;
begin
  ShowModal;  // mostra o form de advertência
  Result := cbMostraForm.Checked;  // retorna a condição para a próxima vez
end;

você também pode gravar a informação da variável no registro ou arquivo de inicialização para recuperar quando o programa iniciar

Abraços

[vms]

valeu micheus, já consegui