Label inhalt ändern

N47R0N · Beiträge: 134

HI

Ich weiß die überschrift ist nicht gans zutreffend , ich bin ja nun noch ein neuling auf dem Gebiet .

Mein Programm sit so aus

ich habe ein Edit Feld und ein Label und ich will das wenn das Edit feld leer bleibt im Labell der schriftzug "Leer" erscheint und wenn im Edit feld etwas reingeschrieben wird dann soll "OK" im Label stehen .

Das Programm soll keinen wirklich wichtigen zweck erfüllen ich will nur etwas dazu lehrnen .

Danke schonmal

Moderiert von raziel: Topic aus Dateizugriff verschoben am Mo 16.05.2005 um 12:17

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Geb dei Edit-Onchange folgendes ein

markieren

Delphi-Quelltext

1:
2:
3:
4:

if edit1.text='' then
label1.caption:='Leer'
else
label1.caption:='OK';

Am Anfang muss im Label natürlich Leer stehen.

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

N47R0N · Beiträge: 134

Cool danke dir ! ^^

weißt du wie ich das auch noch so hinbekomme das sich die farbe der schrift ändert
z.B wenns "leer" ist soll die schrift rot sein und wenn dort "OK" steht dann soll
es grün sein .

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

 
if Edit6.text='' then
Label18.caption:='Offline'
else
Label19.caption:='Online';
Label19.Color:=clLime;

Der Code von mir ändert nur den hintergrund der schrift , ich will aber das die schrift selber grün wirt .

und da gibt es auch noch ein problem unzwar : wenn man was ins Edit feld schreibt dann ändert sich ja wie gewollt die Caption vom Label doch wenn ich nun das geschriebene aus dem Edit wieder entferne bleibt die Caption vom Label immernoch auf "OK" , das soll aber immer aktuell sein , wenn im Edit nichtz steht dann soll es auch immer wieder auf "leer" zurückgehen und nicht immer "ok" sein .

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Es muss so heißen Label9.font.color

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Zitat:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

 
if Edit6.text='' then
Label18.caption:='Offline'
else
Label19.caption:='Online';
Label19.Color:=clLime;

Wenn du nach else beide Anweisungen ausführen willst, nur wenn was im Edit steht musst du das so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

 
if Edit6.text='' then
Label18.caption:='Offline'
else
begin
Label19.caption:='Online';
Label19.Color:=clLime;
end;

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

N47R0N · Beiträge: 134

und da gibt es auch noch ein problem unzwar : wenn man was ins Edit feld schreibt dann ändert sich ja wie gewollt die Caption vom Label doch wenn ich nun das geschriebene aus dem Edit wieder entferne bleibt die Caption vom Label immernoch auf "Online" , das soll aber immer aktuell sein , wenn im Edit nichtz steht dann soll es auch immer wieder auf "Offline" zurückgehen und nicht immer "Online" stehen bleiben .

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Kann es sein das du manchmal Label8, manchmal Label9 nimmst?

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Alstar · Beiträge: 827

Eigentlich gilt hier: Neue Frage -> neuer Thread. Aber ich gebe dir mal nen Tipp: Schau dir mal das Ereignis "OnChange" vom TEdit an :wink:

Alstar

crakos · Beiträge: 195 D2k5 Pers

Du sprichst ja auch labell8 an! und du wilst doch 9 haben

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

if Edit6.text='' then  
Label18.caption:='Offline'  
else  
begin  
Label19.caption:='Online';  
Label19.Color:=clLime;  
end;

achso denk dran die farbe noch einzügen und dann das begin und en nicht vergessen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Edit6.text='' then 
  begin 
    Label19.caption:='Offline';  
    Label19.Color:=clred;//ka ob red existiert, denke aber schon
  end
else  
  begin  
    Label19.caption:='Online';  
    Label19.Color:=clLime;  
  end;

_________________
Das Ende der Menschheit ist der Anfang der Unendlichkeit.

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Edit6.text='' then  
begin
Label1.caption:='Offline';
Label19.font.Color:=clred; 
end
else  
begin  
Label19.caption:='Online';  
Label19.font.Color:=clLime;  
end;

Außerdem sollte das Label auch wieder rot werden :wink:

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

crakos · Beiträge: 195 D2k5 Pers

hihi alle schreiben gleichzeitig :>

_________________
Das Ende der Menschheit ist der Anfang der Unendlichkeit.

N47R0N · Beiträge: 134

^^ genau , da kommt man ja durcheinander .

Aber sogar ich habe es begriffen .

BIG THX!! an alle

crakos · Beiträge: 195 D2k5 Pers

hauptsache, du verstehst es

_________________
Das Ende der Menschheit ist der Anfang der Unendlichkeit.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme