Er det noen som vet hvordan man kan sette farge på et TPanel ved å skrive inn tall i en TEdit?
Jeg tror at man kan gjøre det slik:
procedure TForm1.Edit1Change(Sender: TObject);
begin
try
Panel1.Color := StrToInt(Edit1.Text); // ???
if StrToInt(Edit1.Text) < 0 then Edit1.Text := '0'; // Dette gjør at man ikke kan skrive mindre enn 0.
if StrToInt(Edit1.Text) > 255 then Edit1.Text := '255'; // Dette gjør at man ikke kan skrive mer enn 255.
except
Exit; // Hvis jeg skriver ex. 'a' i Edit1 så vil det ikke komme en feilmld om "...not a valid integer..."
end;
end;
Håper dere forstår meg ;o)
####################################################
(1) Det er et program som heter LieroM8.
(
http://home.wanadoo.nl/zanderz/lieronet/download/lm8.zip)(2) På siden "Weapons" og "Page2", er det en label med skriften "Splinter color".
(3) Den lille fargeboksen til høyre der... Hvordan kan jeg lage den?
####################################################
DiZpel