Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc <> nil) then
with TFormClass(Pc).Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
---
Tenho essa função para nao ser necessario declarar a unit na uses do meu
frmPrincipal,
sendo assim, eu tbm coloco em todos os meus forms
initialization
RegisterClass(MeuForm);
meu problema é que preciso verificar se esse form ja foi criado, pq se
ele ja estiver criado, quero somente dar um Show nele.
Do jeito que minha função está, ele cria uma nova instancia do form.
Alguém tem alguma sugestão de como melhorar essa função?
e me ajudar?
Abraços!
Thiago Filiano
11-8288-4402
msn: [EMAIL PROTECTED]
skype: alegrethi
