variavel global

16/09/2004

0

como posso criar uma variavel que independa de forms e esteja deiponivel para toda a aplicação ....

desde já obrigado


Madwal

Madwal

Responder

Posts

16/09/2004

Martins

É só criar uma variável pública no Form Principal, acredito q os demais forms, conseguiram exergar...

Pode ser q existam outras formas...


Espero ter ajudado.

T[+]
8)


Responder

16/09/2004

Madwal

ja criei no principal como publica e os outros forms não enxergam


Responder

16/09/2004

Martins

ja criei no principal como publica e os outros forms não enxergam

Ajudaria de vc fosse mais especifico no que deseja fazer, se postasse um exemplo do q queres posso tentar lhe ajudar.


Responder

16/09/2004

Martins

Dá só uma olhada neste exemplo rápido.
Tenho dois forms (form1 e form2


Segue o código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    teste:String;
  end;

var
  Form1: TForm1;

implementation
Uses Unit2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     teste:=´Olá mundo, estamos com Delphi todo o tempo!´;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:=teste;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

end.

Código acima do form1, com o componente Label, um Button, ao clicar no button o label recebe o valor da viriavel (teste).

Código do Form2.
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses unit1;
{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  Label1.Caption:=form1.Teste;
end;

end.

Também com um Label, só q ao carregar, ele pega o valor da variavel (teste) do form1.

Não sei se ajuda, por isso espero q possa passar melhor a idéia do q desejas.


Responder

16/09/2004

Martins

Uma outra sugestão, bem melhor do q a anterior é voce colocar o código como segue o exemplo abaixo:
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var    {Todas as variaveis serão vistas pelos filhos deste form}
  FormPai: TFormPai;
  Id:Integer;
  Nome, Cpf:String;

  implementation

Uses  Calculadora;

{$R *.DFM}


Aqui suas variáveis ficaram visiveis para todos os forms filhos.

PS: Não esqueça de colocar na clausa USES dos forms filhos a unit PAI.
Espero q seja útil.

Até a próxima....


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar