Edits numero dentro
como eu faço para quando eu compilar o meu programa todos os edts ja aparecem com o numero 0 (zero) dentro?
Paulo
Curtidas 0
Respostas
Reginaldo Correa
19/05/2013
Tenta assim
procedure TForm1.Coloca0;
var
i : integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
(Form1.Components[i] as TEdit).text := '0';
if Form1.Components[i] is TMaskEdit then
(Form1.Components[i] as TMaskEdit).text := '0';
end;
end;
ai coloca no formshow
procedure TForm1.FormShow(Sender: TObject);
begin
Coloca0;
end;
procedure TForm1.Coloca0;
var
i : integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
(Form1.Components[i] as TEdit).text := '0';
if Form1.Components[i] is TMaskEdit then
(Form1.Components[i] as TMaskEdit).text := '0';
end;
end;
ai coloca no formshow
procedure TForm1.FormShow(Sender: TObject);
begin
Coloca0;
end;
GOSTEI 0