Eu vi este procedimento era o que eu estava precisando. so que ele so
carrega os forms ja criados. Mas tenho formularios que sao criados em
tempo de execução. Alguem poderia me auxiliar?
Var
Form1: TForm1;
implementation
uses TypInfo;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Screen.FormCount - 1 do
MUnits.Lines.Add(GetTypeData (Screen.Forms[i].ClassInfo)^.UnitName
+ ' {'+Screen.Forms[i].Name+'}');
end;
end.
--- Em [EMAIL PROTECTED], "dhsb" <[EMAIL PROTECTED]>
escreveu
>
> Pessoal estou com uma duvida eu tenho dois menus um chamado cdastro
e o
> outro chamado Consulta. Todos os form de Cadastros comecam com Cad
e
> consulta com Con. Bom, tenho um form de autorização. Tenho que a
cada
> bertura de tela ele carregasse todos os captions do formularios num
> listbox de cadastro e os de consulta para consulta. Como eu poderia
> fazer isso ? Valeu
>
--- Em delphi-br@yahoogrupos.com.br, "dhsb" <[EMAIL PROTECTED]> escreveu
>
> Pessoal estou com uma duvida eu tenho dois menus um chamado cdastro
e o
> outro chamado Consulta. Todos os form de Cadastros comecam com Cad
e
> consulta com Con. Bom, tenho um form de autorização. Tenho que a
cada
> bertura de tela ele carregasse todos os captions do formularios num
> listbox de cadastro e os de consulta para consulta. Como eu poderia
> fazer isso ? Valeu
>
