Avatar billede aagaard93 Novice
11. januar 2009 - 22:59 Der er 2 kommentarer

edit1.hide - edit 10.hide i stedet for edit1.hide; edit2.hide;

har har en kode der ser sådan ud:

----------
procedure TForm1.Edit66Change(Sender: TObject);
begin
  if edit66.Text = '1' then
    begin
      edit1.Hide;
      edit2.Hide;
      edit3.Hide;
      edit4.Hide;
      edit5.Hide;
      edit6.Hide;
      edit7.Hide;
      edit8.Hide;
      edit9.Hide;
      edit10.Hide;
    end;
end;
--------------

kan man så ikke gøre et eller andet, så man kun skal skrive fx

procedure TForm1.Edit66Change(Sender: TObject);
begin
  if edit66.Text = '1' then
    begin
      edit1.Hide; - edit10.hide;
    end;
end;

Og så skjuler den alle fra 1 - 10..

Håber selvfølgelig å¨et hurtigt svar :D

på forhånd tak
Avatar billede kroning Nybegynder
11. januar 2009 - 23:35 #1
En for-next skulle kunne gøre det:

var
    i : integer;
begin
    for i:=1 to 10 do
      (FindComponent('edit'+IntToStr(i)) as TEdit).Hide;
end;
Avatar billede hrc Mester
12. januar 2009 - 07:21 #2
Hvis edit'erne ligger på et panel kan du evt. styre det med dens Visible-property. Eventuelle labels og andet, forsvinder naturligvis også fra skærmen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester