delphi4arab منتديات دلفي للعرب

عندما ترغب كمبوبكس؛ لتختار منه مثلاً طباعة، استدعاء الحاسبة، عرض برنامج فورم آخر، أو ترغب زراً؛ لتصغير الفورم وتكبيره ليتوافق وشاشة اللاب توب، إليك الكود:

========== الكمبوبكس ========

1- سو فورم جديد وضع عليه  TPrintDailog  و  TcheckBox

ومن خاصية  ComboBox تختار Items وتكتب :

حاسبة

طباعة

عرض فورم3

اضغط على   TComboBox على الفورم وفي الحدث

OnlClick  اضغط على ComboBox1Click

وادخل الكود  التالي:

if ComboBox1.ItemIndex = 0 then

  WinExec('calc.exe /C DIR *.*', SW_SHOWNORMAL);

if ComboBox1.ItemIndex = 1 then

if PrintDialog1.Execute then

    Form2.Print;

  if ComboBox1.ItemIndex = 2 then

  Form3.Show;

end;

انتهى

========= تصغير الفورم وتكبيره =========

2- اضغط على مكون  TcheckBox لتصغير الفورم وتكبيره، وادخل الكود التالي:

rocedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then scaleBy(80,100) else scaleBy(100,80) ;

end;

انتهى