Mega Code Archive

 

Categories / Delphi / VCL

 

Componentcount ozelligini kullanarak bir form üzerindeki tum denetimlerin ozelliklerini degistirmek

//asagidaki kod tum editleri kirmizi yapar, enabled,readonly vs. ozelliklerini de kullanabilirsiniz. procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin for i:=0 to form1.ComponentCount-1 do begin if components[i] is Tedit then (components[i] as Tedit).color:=clred; end; end;