HAFTARI
27-02-2008, 06:34 PM
السلام عليكم و رحمة الله تعالى و بركاته
هذا المثال البسيط يمكن من منع الكتابة -أي القراءة فقط- TComBoBox ReadOnly
نعلم أن الكود ComboBox.ReadOnly غير موجود و لكن نستطيع عمل شيء آخر
في خاصية الحدث Evenement و في خاصية الإدخالات OnKeyPress ندرج الكود التالي:
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;
هذا المثال البسيط يمكن من منع الكتابة -أي القراءة فقط- TComBoBox ReadOnly
نعلم أن الكود ComboBox.ReadOnly غير موجود و لكن نستطيع عمل شيء آخر
في خاصية الحدث Evenement و في خاصية الإدخالات OnKeyPress ندرج الكود التالي:
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;