Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Visible. (https://www.delphipraxis.net/20666-visible.html)

thomasvonmuenster1 21. Apr 2004 10:26


Visible.
 
Was habe ich falsch gemacht?

Delphi-Quellcode:
if (Edit1.Text='*')then DBGrid3.Visible := true;
Wenn ich in mein editfeld schreibe soll mein DBGrid sichtbar werden.
Das geht aber nur wenn ich * selber drücke weil ich es als string def.
Es soll bei jeder Eingabe erscheinen und wenn nichts mehr drin steht
soll es wieder visible.false.

Cuchulainn 21. Apr 2004 10:29

Re: Visible.
 
Dann musst du es ins OnChange-Ereignis setzen:

Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
    DBGrid3.Visible:= true
  else
    DBGrid3.Visible:= false;
end;
Wenn du '*' benutzt, ist das ein String, der * enthält.

thomasvonmuenster1 21. Apr 2004 10:34

Re: Visible.
 
Danke Dir!

Was sagt man eigendlich mit <>
Hat das etwas mit der Eingabe zutun?

himitsu 21. Apr 2004 10:36

Re: Visible.
 
Oder wieder in kurz:

Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  DBGrid3.Visible := Edit1.Text <> '';
end;
<> heist ungleich


hier kommt bei allen das Selbe raus:
Delphi-Quellcode:
  if Text <> '' then ...Visible:= true else ...Visible:= false;

  if Text = '' then ...Visible:= false else ...Visible:= true;

  if not (Text = '') then ...Visible:= true else ...Visible:= false;

Cuchulainn 21. Apr 2004 10:39

Re: Visible.
 
Zitat:

Zitat von thomasvonmuenster1
Danke Dir!

Was sagt man eigendlich mit <>
Hat das etwas mit der Eingabe zutun?

<> bedeutet ungleich.

Delphi-Quellcode:
if Edit1.Text <> '' then
bedeutet also: Wenn Edit1 nicht leer ist.

Pseudemys Nelsoni 21. Apr 2004 12:07

Re: Visible.
 
<> = ungleich
= = gleich
:= = zuweisung
< = kleiner als
> = grösser als


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz