Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá gente, boa tarde.
Estou aqui novamente para lhes pedir uma ajudinha, vou ser meio direto.
O caso é, tenho um form nomeado como FormPrincipal e outro como FormEmissor, no FormPrincipal tem 2 botões, um para abrir o FormEmissor e outro para Sair, se eu clicar no botão e abrir o formEmissor quando clico no sair do FormEmissor ele fecha o FormEmissor normalmente e fica na tela o FormPrincipal dai quando eu clico no Sair do FormPrincipal Ele não fecha não da erro nem nada, fica parado.
para fechar o form principal estou usando:
procedure Tformprincipal.PrincipalSairClick(Sender: TObject);
begin
formprincipal.Close;
end;
Para abrir o FormEmissor eu uso o seguinte code:
procedure Tformprincipal.BitBtn1Click(Sender: TObject);
begin
FormEmissor:= TFormEmissor.Create(self);
FormEmissor.ShowModal;
end;
Para fechar o FormEmissor
procedure TFormEmissor.sairClick(Sender: TObject);
begin
formprincipal:= Tformprincipal.Create(Self);
formprincipal.Show;
FormEmissor.Close;
end;
Desde já agradeço.
Carregando comentários...