27-08-2012, 07:58 PM
السلام عليكم
حسب ما فهمت من السآل
في حالة كان مكون واحد يمكنك اسبتدال (Sender as TEdit) ب Edit1 اذا كان لديك العديد من المكونات
استخدم Sender حيث في Events في خاصية OnKeyDown اختر Edit1KeyDown
من فضلك وضح اكثر ماذا تريد الكلمات مجانية
حسب ما فهمت من السآل
PHP كود :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_Down then
SelectNext((Sender as TEdit), True, True);
end;
استخدم Sender حيث في Events في خاصية OnKeyDown اختر Edit1KeyDown
من فضلك وضح اكثر ماذا تريد الكلمات مجانية
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج

