Chamar metodo em um form diferente
Galera, to precisando chamar um metodo que retorna um boolean que esta em um formulario, preciso chamar esse metodo em outro formulario, alguem pode me ajudar com isso, por favor ?
Patrick Marins
Curtidas 1
Respostas
Claudio Andrade
11/12/2018
Fiz o código mais não cheguei a testar, mas de qualquer forma espero que entenda um pouco de orientação a objetos para poder aplicar ele.
// Crie uma nova classe no form onde se enconta o booleano
TNovaClasse = class
private
public
function Execute: boolean;
end;
//
function TNovaClasse.Execute: boolean;
var
AForm: TSeuForm;
begin
AForm = TSeuForm.Create;
try
AForm.Show;
Result := AForm.SuaVariavel;
finally
FreeAndNil(AForm);
end;
end;
// No form que você quer o resultado é só chamar a classe que criou
var
ANovaClasse: TNovaClasse;
begin
ANovaClasse := TNovaClasse.Create;
try
if ANovaClasse.Execute then
begin
// se o seu booleano for TRUE vai cair aqui e você pode fazer o que quiser
end;
finally
FreeAndNil(ANovaClasse);
end;
end;
// Crie uma nova classe no form onde se enconta o booleano
TNovaClasse = class
private
public
function Execute: boolean;
end;
//
function TNovaClasse.Execute: boolean;
var
AForm: TSeuForm;
begin
AForm = TSeuForm.Create;
try
AForm.Show;
Result := AForm.SuaVariavel;
finally
FreeAndNil(AForm);
end;
end;
// No form que você quer o resultado é só chamar a classe que criou
var
ANovaClasse: TNovaClasse;
begin
ANovaClasse := TNovaClasse.Create;
try
if ANovaClasse.Execute then
begin
// se o seu booleano for TRUE vai cair aqui e você pode fazer o que quiser
end;
finally
FreeAndNil(ANovaClasse);
end;
end;
GOSTEI 0