Ładny brzuch

Korzystam z odwolania do tych samych obiektow, w oparciu o kod z FAQ...
var  i: byte; begin  for i := 0 to Pred(MainFrm.ControlCount) do  begin    if (MainFrm.Controls[i] is TCheckBox) then    begin      (MainFrm.Controls[i] as TCheckBox).Color       := clBlack;      (MainFrm.Controls[i] as TCheckBox).Font.Color  := clSilver;//txtCl;    end;  end; end;

i jakos mi ten kod nie chce dzialac...

(po kompilacji nic sie nie wykonuje)
Uytkownik DJ_ProG edytowa ten post 12 kwiecie 2006, 18:14

procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to ControlCount-1 do begin    if (Controls[i] is TCheckBox) then begin          (Controls[i] as TCheckBox).Color       := clBlack;          (Controls[i] as TCheckBox).Font.Color  := clSilver;//txtCl;    end; end; end;
Uytkownik Zaper edytowa ten post 12 kwiecie 2006, 18:30
Przeciez to to samo... i tak nie chodzi.. ;(

var i:integer; begin for i:=0 to ComponentCount-1 do  if Components[i] is TCheckBox then    with TCheckBox(Components[i]) do begin      Color:=clBlack;      Font.Color:=clSilver;    end; end;



(...)


Wlasnie o to chodzilo. Jak zwykle pokazales, ze jestes wielki! ^_^
PS (moze przydalaby sie modyfikacja tego postu p1101...) Spojrzaem na kod p1101 i on dziaa :]


Spojrzaem na kod p1101 i on dziaa :]

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •