BMS-HOSxP Community
HOSxP => ยินดีต้อนรับ => ข้อความที่เริ่มโดย: naj ที่ มีนาคม 22, 2013, 09:45:54 AM
-
ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง RunHOSxP_ScriptProgram('xxxxFORM') ผ่าน Button ใน MainForm โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ
-
ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง RunHOSxP_ScriptProgram('xxxxFORM') ผ่าน Button ใน MainForm โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ
;D ;D ;D ผมอยากได้แบบนี้เหมือนกันครับ
-
:) :) :) :)
-
ถ้าได้ HOSxP Amazing เถิดเทิงเป็นแน่แท้ บรรดาขาสร้าง(ฝัน) การพัฒนาต่อยอดการใช้งาน คงคันไม้คันมือ(ส่ายสะดือ เด้งมา เด้งไป...555) ;D
-
ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่ sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ
-
ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่ sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ
... เทพ ๆๆๆๆๆ ... ;D ...
-
Thanks :) :) :)
ไอเดีย บรรเจิด ไม่ต้องใช้เข็มขัด (เพราะคาดไม่ถึง...)
-
มีใครจำได้ไหมครับว่า WinEXEC เราจะส่งค่า Parameter เข้าไปใน Project ที่เรา Compile ได้ยังงัย (ลืมวิธีทำไปแล้วครับ)
-
ถึงบางอ้อ แล้วครับ :D :D :D :D :D
เข้าใจการทำงานของคำสั่ง 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.