Fórum Criando Procedure ou functions, nao sei #254516
14/10/2004
0
Beleza?!
Bom, tenho uma duvida aki...
Desenvolvi um projeto...
e tenho nele, uma hora em que preciso desabilitar alguns botoes, diminuir o form e deixar invisivel alguns componentes...
São ao todo 13 linhas soh desses comandos, desabilita, habilita, some, aparece...
Gostaria de saber se tem como criar uma procedure ou function, que eu determine true ou false, e se for false ele some desabilita e tal tal tal...
POderiam me ajudar?!
Estou com esta duvida...
Obrigado
Abraços...
Tremonti
Curtir tópico
+ 0Posts
14/10/2004
Vinicius2k
Bem simplória, mas acho que seria isso...
procedure MinhaProcedure (habilitar : Boolean = True);
begin
if habilitar then
begin
// seu código que habilita os controles aqui
end
else
begin
// seu código que desabilita os controles aqui
end;
end;As chamadas
MinhaProcedure; // habilita os controles MinhaProcedure(False); // desabilita os controles
Espero ter ajudado...
T+
Gostei + 0
15/10/2004
Tremonti
Vou tentar e jah te mando ok?!
Brigadão...
Gostei + 0
15/10/2004
Tremonti
Tipo, eu coloco (um trechinho do codigo)
button1.visible := false;
dbedit2.enabled := true;
....
e ele me gera um erro na primeira linha...
Do button1...
O que é?!
Fiz do jeito que me mandou..
Valew ae...
Falow
Gostei + 0
15/10/2004
Paulo_amorim
Que erro ele gera?
Tente:
procedure Habilita( Chave: Boolean = True); begin Button1.Visible := Chave; DBEdit2.Visible := not (Chave); end;
Para habilitar o button e desabilitar o DBEdit, chame
Habilita;
para fazer o contrario, chame
habilita(False);
Gostei + 0
15/10/2004
Vinicius2k
Procedure TForm1.MinhaProcedure (habilitar : Boolean = True); begin //Implementação end;
E declare-a na unit do formulário, assim :
unit...
....
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Procedure MinhaProcedure (habilitar : Boolean = True);
end;
var
Form1: TForm1;
implementation
...
Se vc não quiser fazer isso, precisa referenciar o Form a qual pertencem os componentes que vc está manipulando, assim :
Form1.button1.visible := false; Form1.dbedit2.enabled := true;
ou assim :
with Form1 do begin button1.visible := false; dbedit2.enabled := true; end;
Blz?
T+
Gostei + 0
15/10/2004
Christian_adriano
unit...
....
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Procedure MinhaProcedure (habilitar : Boolean = True);
end;
var
Form1: TForm1;
implementation
...
procedure [b:ba5b391808]TNomeForm.[/b:ba5b391808]MinhaProcedure (habilitar : Boolean = True);
begin
if habilitar then
begin
// seu código que habilita os controles aqui
end
else
begin
// seu código que desabilita os controles aqui
end;
end;
[]´s.
Christian.
Gostei + 0
17/10/2004
Tremonti
Era isso mesmo
Faltava eu colocar o nome do form na frente do nome da procedure...
Valew ae Galera...
Uma duvida, eu economizo memoria assim?!
Gostei + 0
18/10/2004
Tremonti
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)