Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Problem mit Label Umfärben (https://www.delphipraxis.net/58005-problem-mit-label-umfaerben.html)

Avax2k 29. Nov 2005 23:15


Problem mit Label Umfärben
 
bekomme es irgendwie nicht hin eine einfache Bedingung zu erstellen..
Diese soll so aussehen..
wenn die zahl im Label1 größer ist als 10 dann soll der Text im Label2 und die Hintergrundfarbe geändert werden ansonsten soll der Text im Label2 und die Hintergrundfarbe erhalten bleiben.. klint schrecklich einfach und ist es wohl auch nur komme ich vor lauter Tippen nicht mehr auf die einfachsten Dinge..

das habe ich schon:
Delphi-Quellcode:
if StrToFloat(Label1.Caption)>10 then
Label2.Caption := 'Test';
Label2.Color:=clRed;
wollte es mit ELSE versuchen aber geht nicht..naja farbe des Labels ist am Anfang
Delphi-Quellcode:
Label2.Color :=ClLime;
Label2.Caption:='Test1';
somit soll das dynamisch sein sprich wenn der Wert in Label1 wieder unter die 10 fällt soll es wieder grün werden und test1 drin stehen im Label2

hoffe jemand kann mir dabei helfen..

Matze 29. Nov 2005 23:19

Re: Problem mit Label Umfärben
 
Moin,

setzte die Anweisung in ein begin - end-Abschnitt, sonst ist nur die Zeile, die der if-Anweisung folgt, beinhaltet.

Delphi-Quellcode:
if Blubb then
begin
  //Code
end else
begin
  //Code
end;

Avax2k 29. Nov 2005 23:33

Re: Problem mit Label Umfärben
 
danke für die schnelle Antwort habe es nun so:

Delphi-Quellcode:
if StrToFloat(Label1.Caption)>10 then
begin
Label2.Caption := 'Test';
Label2.Color:=clRed;
end else
begin
Label2.Caption := 'Test1';
Label2.Color:=clLime;
end;
nur funktioniert das nicht..wenn der Wert nun über 10 ist passiert nichts sprich label 2 ändert sich gar nicht es bleibt immer grün mit Test1 als Text!

ManuMF 30. Nov 2005 14:27

Re: Problem mit Label Umfärben
 
Bei mir funktioniert es.

Überprüfe doch mal, ob deine Komponenten tatsächlich so heißen, bzw. gib ihnen aussagekräftige Namen, z.B. "AnzeigeLabel" oder so.
Und schreib dir in die Bedingung ein "Showmessage('Bedingung erreicht')" (oder ähnlich) rein, um zu sehen, ob er sie wirklich ausführt.

Gruß,
ManuMF

ichbins 30. Nov 2005 14:31

Re: Problem mit Label Umfärben
 
kann es vllt sein dass der Wert größer als 10 garnicht in label1.caption sondern in edit1.text steht?

Binärbaum 30. Nov 2005 14:33

Re: Problem mit Label Umfärben
 
Zitat:

Zitat von Avax2k
...
nur funktioniert das nicht..wenn der Wert nun über 10 ist passiert nichts sprich label 2 ändert sich gar nicht es bleibt immer grün mit Test1 als Text!

Zitat:

Zitat von ManuMF
Bei mir funktioniert es.

Nur so eine Frage, aber wo genau hast du den Code stehen? Normalerweise sollte er in der entsprechenden Ereignisprozedur des Labels (Label1) stehen, sodass er auch bei jeder Änderung der Caption aufgerufen wird.

MfG
Binärbaum


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:58 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