kero usar uma unit extra de rotinas mas..

24/12/2005

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!


Njuniorba

Respostas

24/12/2005

Vinicius2k

Colega,

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+


Responder Citar