Fórum Nome do Form #342554
13/06/2007
0
Boa tarde!
Estou precisando pegar o nome de um TForm atravez do seu Caption.
Alguem sabe se é possivel e como fazer?
Fico no aguardo.
Obrigado.
Mmoreira
Curtir tópico
+ 0Posts
13/06/2007
Marco Salles
Gostei + 0
13/06/2007
Marco Salles
Gostei + 0
13/06/2007
Mmoreira
Na verdade o que eu quero fazer nao é isso e sim isso:
var
CaptionForm : string;
begin
CaptionForm := ´Cadastro de cliente´;
entao de posse desta variavel eu quero descobrir o nome do form
Gostei + 0
13/06/2007
Adriano Santos
procedure TfrmForm.Button1Click(Sender: TObject);
var
CaptionForm : string;
NomeForm : string;
function RetornarName(ACaption: string): string;
var
I : Integer;
begin
for I:= 0 to Screen.FormCount -1 do
if UpperCase(Screen.Forms[I].Caption) = UpperCase(ACaption) then
begin
Result := Screen.Forms[I].Name;
Break;
end;
end;
begin
CaptionForm := ´Form cadastro de clientes´;
ShowMessage(RetornarName(CaptionForm));
end;
Gostei + 0
14/06/2007
Marco Salles
entendo... então é percorrer mesmo os objetos Forms e compara-los com o ´Caption´ passado tal como fez o Adriano
Gostei + 0
14/06/2007
Mmoreira
Cara era exatamente isso que eu estava precisando fazer .. a função que voce passou funcionou perfeitamente.
Problema resolvido ... muito obrigado!
Marcos muito obrigado pela atenção tambem velho!
Abs
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)