Chamar metodo em um form diferente
11/12/2018
0
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
Curtir tópico
+ 1
Responder
Posts
11/12/2018
Claudio Andrade
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)