| 共 11 篇文章 |
|
我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); 阅108 转0 评0 公众公开 13-05-02 02:52 |
static sptr_t PASCAL SWndProc( HWND hWnd, UINT iMessage, WPARAM wParam, sptr_t lParam);void SetLexer(uptr_t wParam);}static void *vtFormatEnumerator[] = {(void *)(FormatEnumerator_QueryInterface),(void *)(FormatEnumerator_AddRef),(void *)(FormatEnumerator_Release),(void *)(FormatEnumerator_Next),(void *)(FormatEnumera... 阅587 转1 评0 公众公开 13-05-01 09:56 |
阅121 转0 评0 公众公开 13-05-01 09:36 |
阅37 转0 评0 公众公开 13-05-01 09:18 |
我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); 阅747 转5 评0 公众公开 13-05-01 09:11 |
{$ENDIF}type TForm1 = class(TForm) Edit1: TEdit;{$ENDIF}begin {Call the old edit controls windows procedure} NewWindowProc := CallWindowProc(Form1.CaretBm.if TheMessage = WM_KEYDOWN then begin if ParamW = VK_BACK then CreateCaret(WindowHandle, Form1.begin {Create a smiling bitmap using the wingdings font} CaretBm := T... 阅59 转0 评0 公众公开 13-05-01 09:06 |
这些消息成对出现：窗口消息处理程序在接收到WM_KILLFOCUS消息之前将一直接收到WM_SETFOCUS消息，并且在窗口打开期间，此窗口总是接收到相同数量的WM_SETFOCUS和WM_KILLFOCUS消息。程序在好几个地方取得设备内容：在WM_CREATE消息处理期间，在WM_KEYDOWN消息处理期间，在WM_CHAR消息处理期间以及在WM_PAINT消息处理期间，每次都通过GetStockObj... 阅1345 转4 评0 公众公开 13-05-01 08:56 |
该API函数用于显示光标，其中并没有指定显示哪个光标的参数，这是因为光标是与当前线程有关的资源，一个线程只能创建一个光标，在该线程中创建的光标，可以在该线程中对它执行其它的操作。Windows有若干与键盘相关的消息，例如：WM_KEYDOWN、WM_KEYUP、WM_CHAR等，我们需要处理WM_CHAR消息在光标的位置显示所输入的字符，消息处理过程的参数wPa... 阅17962 转244 评0 公众公开 13-05-01 08:54 |
