16-04-2008, 01:21 PM
في الدلفي :
مكافئة لـ :
لكن الأولى أسرع لكتابة الشيفرة ، أسهل للقراءة وفي المستقبل للتعديل
وتستطيع اختصار (عدم إعادة كتابة) الأب والإبن للوصول للحفيد
مثال:
نستطيع أن نكتب :
أو بكل بساطة
وتخيل لو أردت التعامل مع جميع خصائص مكون ما في إجراء واحد
تحياتي
كود :
[COLOR=Black]with ProgressBar1 do
begin
Parent := StatusBar1;
Position := 100;
Top := 2;
Left := 0;
Height := StatusBar1.Height - Top;
Width := StatusBar1.Panels[0].Width - Left;
end;[/COLOR]مكافئة لـ :
كود :
[COLOR=Black]ProgressBar1.Parent := StatusBar1;
ProgressBar1.Position := 100;
ProgressBar1.Top := 2;
ProgressBar1.Left := 0;
ProgressBar1.Height := StatusBar1.Height - Top;
ProgressBar1.Width := StatusBar1.Panels[0].Width - Left;[/COLOR]لكن الأولى أسرع لكتابة الشيفرة ، أسهل للقراءة وفي المستقبل للتعديل
وتستطيع اختصار (عدم إعادة كتابة) الأب والإبن للوصول للحفيد
مثال:
نستطيع أن نكتب :
كود :
[COLOR=Black]procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Dalphi4Arab';
Label1Top := Button1.Top + Button1.Height+2;
Label1.Font.Style := [fsBold];
Label1.Font.Size := 18;
end;[/COLOR]أو بكل بساطة
كود :
[COLOR=Black]procedure TForm1.Button1Click(Sender: TObject);
begin
[B]with Label1, Label1.Font do[/B]
begin
[color=Blue]// Label1 خاص بـ [/color]
Caption := 'Dalphi4Arab';
Top := Button1.Top + Button1.Height+2;
[color=Blue]// Label1.Font خاص بـ [/color]
style := [fsBold];
size := 18;
end;
end;[/COLOR]وتخيل لو أردت التعامل مع جميع خصائص مكون ما في إجراء واحد
تحياتي