BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: armds ที่ เมษายน 23, 2009, 17:47:20 PM

หัวข้อ: ระบบ SYS_ER_FORM ใช้ Enter ไม่ได้
เริ่มหัวข้อโดย: armds ที่ เมษายน 23, 2009, 17:47:20 PM

ผมทำ  SYS_ER_FORM   ใน  Custom form  ไว้ครับ 
ส่งสัยว่าทำไมใช้  ฟังก์ชัน  นี้ไม่ได้  คือ ผมอยากให้ใช้  enter  ไปคีย์ทีละช่องได้เลย อะครับ 

if Key = #13 then begin
    SelectNext(Sender as tWinControl, True, True );
    if Sender = Edit10 then
      Button1.Click;
    Key := #0;
  end;

รบกวน  อ.mn  แนะนำด้วยครับ 

หัวข้อ: Re: ระบบ SYS_ER_FORM ใช้ Enter ไม่ได้
เริ่มหัวข้อโดย: doramon ที่ เมษายน 23, 2009, 21:01:32 PM

เป็น key   tab แทนดูครับ

หัวข้อ: Re: ระบบ SYS_ER_FORM ใช้ Enter ไม่ได้
เริ่มหัวข้อโดย: armds ที่ เมษายน 23, 2009, 23:10:32 PM

อ้างจาก: doraemon ที่ เมษายน 23, 2009, 21:01:32 PM

เป็น key   tab แทนดูครับ

ขอบคุณครับ  นึกว่ามี  ฟังก์ชัน  อื่น ได้อีก   (เพราะถ้าไปใช้  delphi  เขียน ก็ run  ได้ปกติ)

หัวข้อ: Re: ระบบ SYS_ER_FORM ใช้ Enter ไม่ได้
เริ่มหัวข้อโดย: armds ที่ เมษายน 24, 2009, 09:25:41 AM

ฝากให้  อ.อ๊อด  และท่านอื่นๆ  ที่ต้องการนำไปใช้ครับ
เป็นการลงข้อมูลเฉพาะที่  ทาง พยาบาล ER  ต้องการจะลงแบบง่าย ๆ ครับ  ไม่ต้องไปคีย์ในหน้าจอ คัดกรองของ OPD  ครับ