ถ้าใครเคยทดลองใช้
ActiveX Control ตัวนี้มาแล้วจะพบว่าใน WebPage ที่เปิดส่วนของ EditBox และ
TextBox ไม่สามารถ Cut , Copy, Paste ได้ การแก้ไขสามารถทำได้โดยเพิ่มเพิ่มคำสั่งต่อไปนี้เข้าไปในโปรแกรม
//เพิ่มในส่วนของ Header File
#include <ActiveX.hpp>
//เพิ่มในส่วนของ Cpp File
void __fastcall
TForm1::FormCreate(TObject *Sender)
{
OleInitialize(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction
&Action)
{
OleUninitialize();
}
|
ตัวอย่างโปรแกรมด้านบนเป็นตัวอย่างแบบสั้นนะครับ
ถ้าเกิดใส่คำสั่งด้านบนแล้วไม่สามารถใช้คำสั่ง Cut, Copy, Paste ไม่ได้ลองใส่คำสั่งข้างล่างดูนะครับ
void
__fastcall TForm1::Button2Click(TObject *Sender)
{
CppWebBrowser1->ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
CppWebBrowser1->ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
CppWebBrowser1->ExecWB(OLECMDID_DELETE, OLECMDEXECOPT_PROMPTUSER);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
OleInitialize(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction
&Action)
{
OleUninitialize();
}
|
ข้อกำหนดในการใช้งานคำสั่งนี้
Windows ที่ใช้ต้องติดตั้ง IE Version 4.0 ขึ้นไป |