kero usar uma unit extra de rotinas mas..
ola amigos to tentando usar no form principal a unit ROTINAS onde nela esta uma procedure pra criar os forms
procedure CriaForm(FormClass: TFormClass);
begin
with FormClass.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
so q n consigo usar no form principal.. ja adicioneu na uses e nda.. o que falta??
obrigado e feliz natal!
procedure CriaForm(FormClass: TFormClass);
begin
with FormClass.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
so q n consigo usar no form principal.. ja adicioneu na uses e nda.. o que falta??
obrigado e feliz natal!
Njuniorba
Curtidas 0
Respostas
Vinicius2k
24/12/2005
Colega,
Falta acrescentar o ´header´ da sua procedure na ´interface´ da sua unit ROTINAS.
T+
Falta acrescentar o ´header´ da sua procedure na ´interface´ da sua unit ROTINAS.
unit Rotinas; interface uses Windows, SysUtils, Classes ...; // declaração das procedures e functions que são visíveis externamente procedure CriaForm(FormClass: TFormClass); procedure ... implementation ...
T+
GOSTEI 0