Nome do Form

Delphi

13/06/2007

Pessoal,
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

Mmoreira

Curtidas 0

Respostas

Marco Salles

Marco Salles

13/06/2007

não seria uma simples conversão assim:

Showmessage(String(String(form1.Caption)));



GOSTEI 0
Marco Salles

Marco Salles

13/06/2007

desculpa .. um string foi de lambuja

Showmessage(String(form1.Caption));



GOSTEI 0
Mmoreira

Mmoreira

13/06/2007

Marcos,
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
Adriano Santos

Adriano Santos

13/06/2007

Veja se isso ajuda:

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
Marco Salles

Marco Salles

13/06/2007

Marcos, Na verdade o que eu quero fazer nao é isso e sim isso:


entendo... então é percorrer mesmo os objetos Forms e compara-los com o ´Caption´ passado tal como fez o Adriano


GOSTEI 0
Mmoreira

Mmoreira

13/06/2007

Adriano,
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
POSTAR