Salvar variavel TForm

[luizf]

Tenho algumas bibliotecas .pas e para não ficar adicionando linhas em programas/projetos novos, criei e estou criando mais algumas.

Então é só declará-las e boa.

Mas tem funções que precisam, por exemplo, trocar o Caption do Label1, mas, na biblioteca não posso somente usar:

Label1.Caption

Tenho de usar:

Form1.Label1.Caption

Não sei se isso é normal, pois sobre Delphi estou aprendendo sozinho e com ajuda da net.

E para quando for fazer algo novo, não ter que ficar trocando todos nomes, tentei fazer o seguinte,

na bibioteca, fiz assim:

unit U_Biblioteca;
                
interface

uses
  Forms, SysUtils, Classes, StdCtrls, StrUtils;

//------ Declaração
//------ Procedures e Functions

var
  Formulario: TForm; 

implementation

uses
  Unit1;

//------ Procedures e Functions


......
......
......
end.

E no form principal, fiz

procedure TForm1.FormCreate(Sender: TObject);
begin
  Formulario:= Form1;
end;

Mas, não reconhece o componente que vem após Formulario, que ficaria assim:

Formulario.Label1.Caption:= 'nonono';

Deste jeito, Form1.Label1.Caption, normal.

É possivel fazer algo?

Editado Julho 25, 2010 por luizf

[luizf]

==========================================================

Mais uma coisa, hoje estava alterando algumas coisas nessa minha biblioteca, e no começo da unit apareceu isso:

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}

Como isso nunca aconteceu comigo, não imagino o que seja.

Posso apagar?

.

Editado Julho 25, 2010 por luizf

[Jhonas]

São diretivas de compilação... se apagar pode dar problemas

abraço

[luizf]

E quando a varialvel para salvar o Form, com posso fazer?

Obrigado.

[Jhonas]

Se a ideia é criar um form em tempo de execução, não é dessa maneira

veja este artigo

http://www.festra.com/wwwboard/messages/12948.html

abraço