Fórum Procedure para Abrir um Form #235893
03/06/2004
0
Gostaria a patir de uma String com o nome de um formulário, saber se ele existe. E caso exista dar um Show no mesmo com o programa em modo de execução.
Lembrando: Gostaria de passar para uma Procedure no formato de uma String o nome do formulário que desejo abrir. E a procedure terá que verificar a existência do mesmo e abrir o form dinamicamente.
Se alguém puder ajudar!
[i:0e948b26d0][b:0e948b26d0]Um forte abraço,
André Ferreira.[/b:0e948b26d0][/i:0e948b26d0]
[b:0e948b26d0]Tópico em duplicidade![/b:0e948b26d0]
Para responder, clique aqui:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=45084&highlight=
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação
Lembrando: Gostaria de passar para uma Procedure no formato de uma String o nome do formulário que desejo abrir. E a procedure terá que verificar a existência do mesmo e abrir o form dinamicamente.
Se alguém puder ajudar!
[i:0e948b26d0][b:0e948b26d0]Um forte abraço,
André Ferreira.[/b:0e948b26d0][/i:0e948b26d0]
[b:0e948b26d0]Tópico em duplicidade![/b:0e948b26d0]
Para responder, clique aqui:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=45084&highlight=
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação
André Ferreira
Curtir tópico
+ 0
Responder
Posts
03/06/2004
Xanatos
function ShowAForm(z: string): boolean;
var
i: integer;
strClass: String;
FormClass: TFormClass;
NewForm: TForm;
begin
result := false;
// verifica se o form ja foi criado e mostra ele
for i := 0 to Screen.FormCount - 1 do begin
if UpperCase(Screen.Forms[i].Name) = UpperCase(z) then begin
result := true;
Screen.Forms[i].Show;
exit;
end;
end;
end;
:P
var
i: integer;
strClass: String;
FormClass: TFormClass;
NewForm: TForm;
begin
result := false;
// verifica se o form ja foi criado e mostra ele
for i := 0 to Screen.FormCount - 1 do begin
if UpperCase(Screen.Forms[i].Name) = UpperCase(z) then begin
result := true;
Screen.Forms[i].Show;
exit;
end;
end;
end;
:P
Responder
Gostei + 0
03/06/2004
Paulo_amorim
Olá
Se pesquisasse veria que tem um tópico correndo que já tem 2 páginas sobre esse assunto...inclusive o xanatos participa dele...
Lá tem várias alternativas muito boas...
Utilize o botão pesquisar!
Até+
Se pesquisasse veria que tem um tópico correndo que já tem 2 páginas sobre esse assunto...inclusive o xanatos participa dele...
Lá tem várias alternativas muito boas...
Utilize o botão pesquisar!
Até+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)