Nome do Form Ativo

Delphi

21/06/2004

Olá a todos
Como fazer para obter o nome do Form ativo
Nome do Form que estou.
Tipo => If TForm.Name = ´FrCadCli´
Obrigado
Neto


Neto

Neto

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

21/06/2004

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ActiveMDIChild.Name);
end;



GOSTEI 0
POSTAR