Inicio De Sesión - Login - Delphi

[AlejandroIT]

Tengo este codigo en el boton iniciar. Funciona pero no se si esta lo suficientemente completo y otra duda que tengo es en el manejo de excepciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule1.FDConnection1.Open(Edit1.Text,Edit2.Text);
  try
    if DataModule1.FDConnection1.Connected then
    begin
      ShowMessage('Bienvenido.');
      Form1.DestroyWindowHandle;
      Form3 := TForm3.Create(Self);
      Form3.ShowModal;
    end;
  except
    on E:Exception do
    begin
      ShowMessage('Error');
    end;
  end;
end;

[[nlsgarcia]]

AlejandroIT,

Empezado por AlejandroIT

...y otra duda que tengo es en el manejo de excepciones...

¡Bienvenido al Club Delphi!

Revisa esta información

1- Try

2- Raise

Espero sea útil

Nelson.

[Casimiro Notevi]

Empezado por AlejandroIT

... no se si esta lo suficientemente completo

¿Completo?