關于WM_COPY消息触發(20分)

marry · 2000-06-14

我在程序中需要触發WM_COPY消息,作一些動作,所以定義如下,可在用鼠標器 選擇Copy或按下Ctrl-C并不触發此消息,請問還需要作哪些動作呢? procedure TForm1.WMCopy(var Message: TWMCOPY); begin  inherited;   if (Message.msg=WM_COPY) then      edit1.text:='1111'   else     inherited; end;

marry · 2000-06-14

我想在這儿給回答"友類問題,Form拖動"的朋友道歉,我在6/8號當天就將分送出去了,不知怎么回事,只送出了感謝的話,沒將分送出去,我很快就送出,對不起

无情 · 2000-06-14

定义一个类:   TMyEdit = Class(TEdit)   private     procedure WMCopy(var Message: TWMCOPY);  message WM_COPY ;   end; 窗体创建事件: procedure TForm1.FormCreate(Sender: TObject); var   Edit1: TMyEdit ; begin   Edit1:=TMyEdit.Create(self);   Edit1.Parent:=Self;   Edit1.Left :=10 ;   Edit1.Top := 10 ; end; WM_COPY消息的处理: procedure TMyEdit.WMCopy(var Message: TWMCOPY); begin   inherited;   if (Message.msg=WM_COPY) then ShowMessage('1111'); end;

SuperMMX · 2000-06-14

系统标准的 Edit (delphi 的 TEdit TMemo)会触发的， RichEdit不行。 你的方法不对，应该对某一 edit 截获此消息。

cAkk · 2000-06-14

你上面的代码只能截获发给form的WM_COPY消息吧? 你是要在form按^C吗?

marry · 2000-06-14

可能我的問題說得不准确,我再重述,在一個EDIT3中只能輸入數字,用鍵盤操作可以 屏蔽掉,可用鼠標器就能粘上字符,所以我用了下述的方法可以屏蔽,選擇其他的EDIT 時,可以進行操作,既點鼠標右鍵就粘上字符,可此時用戶不一定要粘貼,所以想截獲WM_PASTE的消息,因而舉WM_COPY消息處理.無情的方法是對指定的TEDIT進行操作. procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); var   i,code:integer; begin if button=mbright  then begin Val(Clipboard.AsText, I, Code); if code<>0 then if (GetFocus=edit3.Handle) then MessageDlg('not copy', mtWarning, [], 0); end; end;

marry · 2000-06-14

又有一個人也問這個問題了,這下SuperMMX,cAkk有的賺啦,無情答的我認可,可這樣 若有不可定數量的Edit,該怎樣作呢,

SuperMMX · 2000-06-14

改所有 Edit.WndProc, 自己定义一个 form 里： procedure MyProc(var msg: TMessage)； 然后还得保存原来的函数，在 MyProc 最后调用。 用 WndProc 查一下。

marry · 2000-06-14

這樣EDIT都要變成動態建立,具体到實現過程好嗎?

SuperMMX · 2000-06-15

不是动态建立，是在  form 的 create 中给它们赋值。 错了，是 WindowProc, 可以直接用代码改， 我已经写了几次了，可以查一查。

marry · 2000-06-16

我用無情的方法已可以解決問題,但我也很想學習SuperMMX的方法,而且請問 SuperMMX,究竟怎樣才能找到你已回答的問題,我察看了你的信息,但不能看妳回答 的問題,麻煩將這段程序再寫一下好嗎.借鑒Delphi的關于WindowProc的幫助也不對.

SuperMMX · 2000-06-16

我记得我写过一个比较完整的，但找不到了， 好吧，再写一个 TForm1 = class(TForm)   Edit1: TEdit; public   procedure MyProc(var msg: TMessage); end; var   oldProc: TWndMethod; 在  form1 的 create 中写入：  oldProc := Edit1.WindowProc;  Edit1.WindowProc := MyProc; procedure TForm1.MyProc(var msg: TMessage); begin   if msg = WM_COPY then   begin     ...   end;   oldProc(msg); end; 这是现写的，可能有错，大致就是这样。可以避免继承。

marry · 2000-06-16

頭一次死气白賴的問問體,不過這招挺管用,非常感謝各位朋友的幫忙,SuperMMX 指點的方法我也測試成功.

marry · 2000-08-07

怎麼這樣久啦,分還沒送出,好的,我再送一次,難道是我操作又出錯啦? 非常感謝大家的幫忙,我因為此分書的分發做顧好幾次啦,這次希望不要再出問題, 遲到的感謝!!!!

Jams · 2000-08-14

>>

wjiachun · 2000-10-18

接受答案了.

關于WM_COPY消息触發(20分)

marry

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

无情

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

marry

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads