11-09-2013, 04:37 PM
السلام عليكم و رحمة الله
ابدأ بهذا و قم بالتعديلات التي تناسب ما تريد ان تصل اليه.
karamofweb كتب :هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ EDIT و DATETIMEPicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
ابدأ بهذا و قم بالتعديلات التي تناسب ما تريد ان تصل اليه.
كود :
procedure HandleCmnts(TargetForm: TComponent);
var
i: Integer;
begin
for i := TargetForm.ComponentCount - 1 downto 0 do
TEdit(TargetForm.Components[i]).Text := 'Hello';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
HandleCmnts(Form1);
end;