20-11-2020, 05:32 PM
السلام عليكم ورحمة الله وبركاته
لنفرض ان فورم يحتوي ListBox, Button, Edit وعند حدث الضغط على الزر يتم نسخ محتوى Edit الى ListBox فكيف اجعل مؤشر الكتابة يتموضع داخل Edit برمجيا بعد الضغط على الزر ؟
لنفرض ان فورم يحتوي ListBox, Button, Edit وعند حدث الضغط على الزر يتم نسخ محتوى Edit الى ListBox فكيف اجعل مؤشر الكتابة يتموضع داخل Edit برمجيا بعد الضغط على الزر ؟
كود :
procedure TForm2.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
Edit1.Clear;
// ماذا اكتب هنا حتى اجعل مؤشر الكتابة يتموضع داخل مربع النص
end;
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين