Essa rotina pode ser muito interessante para vocês.
Ela cria um form apartir de uma string...
O segundo parametro é se o form vai ou
não ser em show modal.
Em todo form antes do end. deve se botar o seguinte:
initialization
RegisterClass(TForm1);
Ae a função...
Procedure ShowForm(pForm : string; pModal : boolean);
var
found, i : integer;
ClasseForm : TFormClass;
begin
found := -1;
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i].Name = pForm then
found := i;
if found >= 0 then
begin
if Screen.Forms[Found].WindowState = wsNormal then
begin
Screen.Forms[Found].Show
end
else
begin
Screen.Forms[Found].WindowState := wsNormal;
end;
end
else
begin
//se não achou a cria
ClasseForm := TFormClass(FindClass('T'+pForm));
if ClasseForm <> nil then
begin
With ClasseForm.Create(Application) do
begin
if pModal = true then
begin
try
ShowModal;
finally
Free;
end;
end
else
begin
Show;
end;
end;
end;
end;
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
