การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form

[naj]

ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง  RunHOSxP_ScriptProgram('xxxxFORM')  ผ่าน Button ใน MainForm  โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ  ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ

[James011]

 

ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง  RunHOSxP_ScriptProgram('xxxxFORM')  ผ่าน Button ใน MainForm  โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ  ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ

ผมอยากได้แบบนี้เหมือนกันครับ

[naj]

 

[naj]

ถ้าได้ HOSxP  Amazing  เถิดเทิงเป็นแน่แท้  บรรดาขาสร้าง(ฝัน) การพัฒนาต่อยอดการใช้งาน คงคันไม้คันมือ(ส่ายสะดือ เด้งมา เด้งไป...555) 

[armds]

ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่  sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ

[Khuad]

ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่  sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ

... เทพ ๆๆๆๆๆ ...  ...

[naj]

Thanks 
ไอเดีย บรรเจิด ไม่ต้องใช้เข็มขัด (เพราะคาดไม่ถึง...) 

[naj]

มีใครจำได้ไหมครับว่า WinEXEC  เราจะส่งค่า Parameter เข้าไปใน Project ที่เรา Compile ได้ยังงัย (ลืมวิธีทำไปแล้วครับ)

[naj]

ถึงบางอ้อ แล้วครับ 
เข้าใจการทำงานของคำสั่ง WinEXEC และการส่งค่า Param ที่มากกว่า 1 ตัว ให้กับ Exe File ที่เราสร้างขึ้น 
unit Yindee;
procedure main;
var fan:string;
begin
 fan:=GetGlobalValue('AN');

  //WinEXEC('Project1.exe '+fan);
  Winexec('Project1.exe '+' '+fan);

  //showmessage(fan);
end;
end.