Duvidas a um novato!!!
Ae pessoal beleza ?
tipo assim
Tenho uma tela com cerca de 10 dbedit´s so que queria fazer com que logo que entrar o form,(form actvate) deixa-se eles disable, e so ficaria enable se eu clicase no botao NOVO, so que eu sei fazer na mao as dbedit 1 por uma... nao teria como fazer uma procedure ou algo assim que eu mandava habilitar e dasablitar os Tdbedit sei la ?
por favor ajudem pois preciso fazer um sistema de Farmacia pra novembro e eh TCC da minha facul
valeu
tipo assim
Tenho uma tela com cerca de 10 dbedit´s so que queria fazer com que logo que entrar o form,(form actvate) deixa-se eles disable, e so ficaria enable se eu clicase no botao NOVO, so que eu sei fazer na mao as dbedit 1 por uma... nao teria como fazer uma procedure ou algo assim que eu mandava habilitar e dasablitar os Tdbedit sei la ?
por favor ajudem pois preciso fazer um sistema de Farmacia pra novembro e eh TCC da minha facul
valeu
Fcunha
Curtidas 0
Respostas
Barcelos
28/08/2003
Olá amigo,
Tente o seguinte:
Procedure EnableDisable(Enab : Boolean);
var I : Integer;
begin
For I := 0 to ComponentCount -1 do
begin
IF Components[I] is TDBEdit then
TDBEdit(Components[I]).Enabled := E;
end;
end;
Basta você configurar a variável Enab para true ou false, de acordo com o que você precisar.
Qualquer coisa entra em contato.
Barcelos
osbarcelos@hotmail.com
Tente o seguinte:
Procedure EnableDisable(Enab : Boolean);
var I : Integer;
begin
For I := 0 to ComponentCount -1 do
begin
IF Components[I] is TDBEdit then
TDBEdit(Components[I]).Enabled := E;
end;
end;
Basta você configurar a variável Enab para true ou false, de acordo com o que você precisar.
Qualquer coisa entra em contato.
Barcelos
osbarcelos@hotmail.com
GOSTEI 0
Vander Batista
28/08/2003
use a procedure do barcelos
mas use no evento onshow, pois no onactivate, pode dar um erro futuro.....
Vander Batista
mas use no evento onshow, pois no onactivate, pode dar um erro futuro.....
Vander Batista
GOSTEI 0