Edit's mm.

Jeg forstiller mig at du kan gøre det med en løkke...

Jeg er ikke så god til Delphi men noget med:
while edit1.visable == false then
edit2.visable == false
edit3.visable == false



NEJ! Og jeg gentager lige: NEJ! Du må ikke bruge en while i denne sammenhæng, det eneste du opnår er at programmet "låser" fordi det ikke bestiller andet end at cykle rundt i din while løkke.

En lang bedre måde ville være at sætte en TTimer på formen med et interval på f.eks. 100. Hver gang TTimeren så aktiverer checker den edit1.visible og hvis den er true, sætter den alle andre til true.

Det er den simple løsning, og der er jo en forsinkelse. Der er nok andre og bedre løsninger.
---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej,

Du kunne evt. gøre det sådan at når du sætter edit1.enabled til enten true eller false så sætter du samtidig alle de andre edits enabled til samme værdi.

Her er en procedure som sætter "enabled" på alle edit felter i en form:

Kode 

procedure TForm1.ChangeAllEdits(AEnabled : Boolean);
var
  I : Integer;
begin
  for I := 0 to ControlCount-1 do
  begin
    if (Controls[I] is TEdit) then
      Controls[I].Enabled := AEnabled;
  end;
end;

Så når du skal ændre edit1.enabled så bruger du bare: ChangeAllEdits(True/False).

/Michael.


Hej tak for for det, men vil du uddybe det lidt nærmere ? for jeg forstår ikke lige helt den kode da jeg ikke har set den metode før.....

/Kenneth
¤¤¤Vi lære kun så længe vi lever¤¤¤

Kode 

procedure TForm1.ChangeAllEdits(AEnabled : Boolean);
var
  I : Integer;
begin
// Løb alle kontroller i gennem fra 0 til ControlCount-1.
  for I := 0 to ControlCount-1 do
  begin
    if (Controls[I] is TEdit) then // Hvis kontrollen er en TEdit så ->
      Controls[I].Enabled := AEnabled; Sæt dens enabled property til din overførte værdi.
  end;
end;

Hey jeg har et lille spørgsmål til en ting jeg har fumlet med et stykke tid, her kommer det så: jeg har længe ikke kodet delphi men da jeg så faldt i søvn over et periodisk system i en Kemi time, og fandt ud af at jeg ville lave det til klassen, med lidt avencerede ting idet, her kommer jeg så med mit indlæg, lidt pinligt måske men har ikke kodet i et stykke tid, så hvordan får jeg dette til at kunne lade sig gøre at jeg har nogle edit's og de skal viseble:= false hvis et andet edit ikke er der, jeg skal have det sådan at når edit1.visable så skal resten også være det hvordan kan jeg gøre det nemest? bare ikke med denne kode: if edit1.visable= false then osv.

Hilsen Kenneth Kallesen.

¤¤¤Vi lære kun så længe vi lever¤¤¤

Hey jeg har et lille spørgsmål til en ting jeg har fumlet med et stykke tid, her kommer det så: jeg har længe ikke kodet delphi men da jeg så faldt i søvn over et periodisk system i en Kemi time, og fandt ud af at jeg ville lave det til klassen, med lidt avencerede ting idet, her kommer jeg så med mit indlæg, lidt pinligt måske men har ikke kodet i et stykke tid, så hvordan får jeg dette til at kunne lade sig gøre at jeg har nogle edit's og de skal viseble:= false hvis et andet edit ikke er der, jeg skal have det sådan at når edit1.visable så skal resten også være det hvordan kan jeg gøre det nemest? bare ikke med denne kode: if edit1.visable= false then osv.

Hilsen Kenneth Kallesen.

¤¤¤Vi lære kun så længe vi lever¤¤¤

Jeg forstiller mig at du kan gøre det med en løkke...

Jeg er ikke så god til Delphi men noget med:
while edit1.visable == false then
edit2.visable == false
edit3.visable == false

Jeg ved ikke rigtig om det kan lade sig gøre... det er bare et gæt
Det er en rigtig gd idé, det med det periodiske system! Tror faktisk selv jeg vil gå rundt og tænke over, hvordan man kan lave sådan et!
Med Venlig Hilsen: CHadi
http://chadi.h4f.dk

Jeg forstiller mig at du kan gøre det med en løkke...

Jeg er ikke så god til Delphi men noget med:
while edit1.visable == false then
edit2.visable == false
edit3.visable == false

NEJ! Og jeg gentager lige: NEJ! Du må ikke bruge en while i denne sammenhæng, det eneste du opnår er at programmet "låser" fordi det ikke bestiller andet end at cykle rundt i din while løkke.

Jeg forstiller mig at du kan gøre det med en løkke...

Jeg er ikke så god til Delphi men noget med:
while edit1.visable == false then
edit2.visable == false
edit3.visable == false



NEJ! Og jeg gentager lige: NEJ! Du må ikke bruge en while i denne sammenhæng, det eneste du opnår er at programmet "låser" fordi det ikke bestiller andet end at cykle rundt i din while løkke.

En lang bedre måde ville være at sætte en TTimer på formen med et interval på f.eks. 100. Hver gang TTimeren så aktiverer checker den edit1.visible og hvis den er true, sætter den alle andre til true.

Det er den simple løsning, og der er jo en forsinkelse. Der er nok andre og bedre løsninger.
---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Kode 

procedure TForm1.ChangeAllEdits(AEnabled : Boolean);
var
  I : Integer;
begin
  for I := 0 to ControlCount-1 do
  begin
    if (Controls[I] is TEdit) then
      Controls[I].Enabled := AEnabled;
  end;
end;

Jeg forstiller mig at du kan gøre det med en løkke...

Jeg er ikke så god til Delphi men noget med:
while edit1.visable == false then
edit2.visable == false
edit3.visable == false



NEJ! Og jeg gentager lige: NEJ! Du må ikke bruge en while i denne sammenhæng, det eneste du opnår er at programmet "låser" fordi det ikke bestiller andet end at cykle rundt i din while løkke.

En lang bedre måde ville være at sætte en TTimer på formen med et interval på f.eks. 100. Hver gang TTimeren så aktiverer checker den edit1.visible og hvis den er true, sætter den alle andre til true.

Det er den simple løsning, og der er jo en forsinkelse. Der er nok andre og bedre løsninger.
---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej,

Du kunne evt. gøre det sådan at når du sætter edit1.enabled til enten true eller false så sætter du samtidig alle de andre edits enabled til samme værdi.

Her er en procedure som sætter "enabled" på alle edit felter i en form:

Kode 

procedure TForm1.ChangeAllEdits(AEnabled : Boolean);
var
  I : Integer;
begin
  for I := 0 to ControlCount-1 do
  begin
    if (Controls[I] is TEdit) then
      Controls[I].Enabled := AEnabled;
  end;
end;

Så når du skal ændre edit1.enabled så bruger du bare: ChangeAllEdits(True/False).

/Michael.