mam taki kod
procedure TForm1.okno4Change(Sender: TObject);
var
HexColor : string;
RValue, GValue, BValue: Integer;
begin
if Length(okno4.Text)=7
then
label1.Caption:=okno4.Text;
HexColor := label1.Caption ; *kolor w Hexie
Delete(HexColor,1,1); *usuwamy znak #
RValue := StrToInt('$' + Copy(HexColor,1,2)); *skladowa R
GValue := StrToInt('$' + Copy(HexColor,3,2)); *skladowa G
BValue := StrToInt('$' + Copy(HexColor,5,2)); //skladowa B
okno1.Text := inttostr(RValue);
okno2.Text := inttostr(GValue);
okno3.Text := inttostr(BValue);
end;
gdzie okno = edit tylko mam problem
jak wpisze
label1.Caption:=okno4.Text;
HexColor := label1.Caption ;
to moge wpisywac w hexie ale nie moge cofnąć tego co mam w edicie wpisane bo
mi wyskakuje bład ... convert error
jak zrobie ten sam kod ale bez labela typu
HexColor := okno4.text ;
to jak wpisze cokolwiek wyskakuje mi ten sam blad
i jak zrobic zeby zeby czyscił edita jak wpisze jakies bzdury typu
#asdglkj albo #fffffg bo tesh mi blad wyskakuje
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)