برنامه خوبی بود ( شرمنده به صورت گذری نگاه کردم )
برای انتقال فوکوس به کنترل بعدی شما از توابعی به صورت زیر استفاده کردید :
procedure TF_Main.CO1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then e2.SetFocus;
end;
یعنی برای تک تک تکس باکس ها و ... همچین کدی نوشتی !!
می تونی رویداد Key Priview مربوط به فرم رو TRUE کنی و در رویداد KeyPress مربوط به فرم کد زیر رو بنویسی :
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;
از آنجایی که برنامه شما فارسی هستش بهتر بود تمام برنامه رو راست به چپ می نوشتی
بهتر بود یه فرم اصلی درست می کردی که تمام صفحه باشه و در داخل آن به فرم های دیگه گزینه هایی برای دسترسی می زاشتی
و تک تک قسمت ها رو ( خرید ، فروش ، پرینت ، جستجو و....) به صورت جداگانه توی فرم های جداگانه می نوشتی
در کل برای یک نمونه خیلی خوب بود
و از این که سورس برنامه رو در اختیار دیگران گذاشتی کار خوبی کردی همچین نمونه برنامه هایی برای آن دسته از دوستانی که تازه وارد دلفی و برنامه نویسی می شن خیلی خوب است