Delphi

Delphi

Aplicaciones realizadas en delphi

Aquí esta el código del Login 

Selecciona un Edit, un botón. En el Botón pon este código.

var a:String; begin a:=Edit1.text; if a=('clave') then begin Form2.show; Form1.Hide; end Else begin application.MessageBox(pchar('Acceso Denegado'),pchar('Mensaje de Eror'), (MB_OK + MB_ICONSTOP)); Edit1.Clear; Edit1.setfocus; end; end;