一个好用的便笺软件,大家来看看是如何实现的? 具体请进。。。 (100分)

  • 主题发起人 主题发起人 shaga
  • 开始时间 开始时间
S

shaga

Unregistered / Unconfirmed
GUEST, unregistred user!
该便笺软件不错,方便提醒大家该做什么,大家装来用用吧:
http://download.pchome.net/php/dl.php?sid=8611

问题。如何做到:鼠标点击memo,得到焦点(这里的意思是不能修改memo的内容,按键盘它没反映,而且memo里没光标,就像enabled为false,但可获得焦点),双击后才能获得修改的功能。
 
1:再加入一个Splitter和一个alLeft的Panel
2:memo.onMouseDown:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_DragMove:longint=$F012;
begin
ReleaseCapture;
SendMessage(handle,wm_SysCommand,sc_DragMove,0);

end;
 
//////********8发消息移动窗体**********////
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
ReleaseCapture;
Perform(Wm_syscommand,$f012,0);
end;
end;
 
楼上两位说的我都知道,我现在要的是:

如何做到:鼠标点击memo,得到焦点(这里的意思是不能修改memo的内容,按键盘它没反映,而且memo里没光标,就像enabled为false,但可获得焦点),双击后才能获得修改的功能。
 
2, memo.readonly:=true,s双击时 readonly:=false
1,没明白什么意思
 
to迷糊: 不行,要求memo里也没输入的光标

效果就象:你单击它时,它不像是memo,当双击时,它就有输入的光标了
 
Memo在设计状态的时候不就是这样嘛,只要处理合适消息就可以了,至于光标,可以把它隐藏掉
 
--光标,可以把它隐藏掉

如何隐藏?

请下载 Atnotes看看效果。。。
 
如何隐藏光标?
 
如何隐藏光标?
 
ShowCursor(false);
 
ShowCursor(false);
 
ShowCursor(false);
 
哇,老大, 别胡说,showcursor 是对鼠标的 [:(!]
 
加个 StaticText,用来显示,编辑时再 visible memo
 
Hailer说得方法很好,换个思路嘛:)
 
多人接受答案了。
 
后退
顶部