|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Label grün einfärben wenn platine verbunden, sonst rot
11. Jan 2007, 21:37
Ich hatte gerade ein Déjàlu...
Wie wäre es mit...
Delphi-Quellcode:
if h in [0..3] then
begin
labelX.Caption:='Card '+ inttostr(CardAddr)+' connected';
labelX.Color := clGrün;
end
else
begin
labelX.Caption:='Card '+ inttostr(CardAddr)+' not connected';
labelX.Color := clRed;
end;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|