Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   programar un (login) o logeo o inicio de secion (https://www.clubdelphi.com/foros/showthread.php?t=93380)

einer 01-09-2018 06:38:04

programar un (login) o logeo o inicio de secion
 
muy buenas

hoy vengo a pedir una mano para mi proyecto delphi lo que buscaba hacer era lo siguiente en form1 que sea la ventana de inicio de sesion lo de hacer la contraseña y demas ya lo se el problema es lo siguiente quisiera que si al iniciar sesion el usuario pone un nombre digamos 'pedro' (en el edit1.text del form1) al mostrar el siguiente form (form2) pueda hacer que en el label1 de form2 salga el nombre que se escribio en form1 osea 'pedro' (para poder mostrar un mensaje como 'hola pedro bienvenido') basicamente mi duda es como trasladar el dato de edit1 en form1 al label1 de form2

por favor agradezco su ayuda soy nuevo en estas cosas de programacion y me gustaria aprender

Diego E. 02-09-2018 00:17:30

Hola einer, es muy sencillo lo que debes hacer es que en tu form 2 en el código abajo de implementation pongas:
Código:

uses NombreDeTuForm1
después de eso puedes usar el evento OnShow de tu form para que al mostrarse copie el nombre, tu form 2 quedaría algo asi:

Código:

unit NombreForm2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

...

implementation

uses Form1;

procedure TForm2.FormShow(Sender: TObject);
begin
    Form2.label1.caption := Form1.edit1.text;
end;



La franja horaria es GMT +2. Ahora son las 01:28:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi