BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: 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 แนะนำด้วยครับ
-
เป็น key tab แทนดูครับ
-
เป็น key tab แทนดูครับ
ขอบคุณครับ นึกว่ามี ฟังก์ชัน อื่น ได้อีก (เพราะถ้าไปใช้ delphi เขียน ก็ run ได้ปกติ)
-
ฝากให้ อ.อ๊อด และท่านอื่นๆ ที่ต้องการนำไปใช้ครับ
เป็นการลงข้อมูลเฉพาะที่ ทาง พยาบาล ER ต้องการจะลงแบบง่าย ๆ ครับ ไม่ต้องไปคีย์ในหน้าจอ คัดกรองของ OPD ครับ