Statusbar

[[Caral]]

Hola
1- En el datamodule:

Código Delphi [-]
var
  DataModule1: TDataModule1;
  Usuario, Nombre: string;

2- En el form login:

Código Delphi [-]
If AdoQuery1Clave.AsString = Edit2.Text then
        Begin
           LoginOk := True;
           Usuario := AdoQuery1CodUsuario.AsString;
           Nombre := AdoQuery1Nombre.AsString;
           AdoQuery1.Active := False;
           Close;
        end

3- En el form login:

Código Delphi [-]
procedure TFLogin.FormCreate(Sender: TObject);
begin
   Usuario := '';
   Nombre := '';
  end;

4- En el form que se necesite:

Código Delphi [-]
If not LoginOK then Close;
   StatusBar1.Panels[0].Text := Nombre;

Saludos