Panel

[Kunoishi]

ich versuche derzeit durch verschiedene Schlagwörter in einem Editfeld verschiedene Panels zu öffnen.
komme aber nicht so recht vorran weil ich den anfang nicht so hinbekomme.
hat für mich jemand einen rat.

[Florian Hämmerle]

Genauere Beschreibung würd vielleicht helfen!

[Kunoishi]

os sorry
jups, im edit feld soll beispielsweise blume eingegeben werden und es soll das erkennen und ein Panel aufmachen.
das gleiche für eingabe bei tieger hier nur dann das Panel2 aufmachen.
bei eingabe von luft ist halt kein panel offen.
jedoch bei eingabe von wasser dann das panel3

ich hoffe jetzt ist die beschreibung besser

[fkerber]

Hi!

Wäre dann nicht vllt. eine ComboBox mit den möglichen "Eingaben" sinnvoller?


Grüße, Frederic

[Kunoishi]

da ich haber mehrere Artikelsorten habe wird die Combo warscheinlich zu lang

[Jens Hartmann]

Hallo,

vieleicht hilft dir ja folgendes..

Delphi-Quellcode:

if Edit1.text = 'Blume' then
  Panel1.Visible := true
else 
  Panel1.Visible := false;

Die IF/Else Anweisung musst du dir anpassen wie du es brauchst. Du könntest auch mal nach Case und so schauen. Und wenn Du feste Werte hast, wie 'Blume', 'Tiger' etc. solltest Du mal das mit der ComboBox bedenken.

Ich hoffe es hilft Dir.

Gruß Jens

[fkerber]

Hi!

Dann solltest du dir überlegen, vllt. besser zu strukturieren - also z.B. Warengruppen - dafür dann eine CB und dann für den jeweiligen Inhalt wieder eine.
Weil ein solches IF-Konstrukt wird auch ziemlich lang....


Grüße, Frederic

[DeddyH]

Zitat von Jens Hartmann:

Delphi-Quellcode:

if Edit1.text = 'Blume' then
  Panel1.Visible := true
else 
  Panel1.Visible := false;

Vielleicht besser so:Panel1.Visible := AnsiLowerCase(Edit1.text) = 'blume'; Aber die ComboBox wäre auch in meinen Augen die geeignetere Variante, die o.a. Lösung ist nicht sonderlich fehlertolerant.

[Helmi]

Hallo,

warum nicht einfach so:

Delphi-Quellcode:

var
  S: String;

begin
  //Text auslesen und Kleinbuchstaben daraus machen
  S := lowercase(Edit1.Text);

  Panel1.Visible := S = 'blume';
  Panel2.Visible := S = 'tiger';
  Panel3.Visible := S = 'wasser';
end;

Der Vorteil dabei von lowercase ist, dass man nicht auf die Groß-/Kleinschreibung bei der Eingabe achten muss.

[DeddyH]

Zitat von Helmi:

Der Vorteil dabei von lowercase ist, dass man nicht auf die Groß-/Kleinschreibung bei der Eingabe achten muss.

Und bei AnsiLowercase gilt das sogar für Umlaute