因为都睡午觉去了,象我一样,呵呵
解决方案 »
- TdxTabContainerDockSite 是哪个控件包里的 在哪里?
- delphi能异步执行存储过程吗?
- 三层中模糊查询出错
- 用TWebBrowser.Navigate('c:\123.xls')打开后,如何用程序实现在Sheet间的跳转?
- 请教,我的程序为何常常会突然退出?
- 请问怎样编程实现改变文件中的字体,有无API函数?(在线等待...)
- 关于memo或richtext
- 谁能给我DbTreeList,就是昆腾组件里面的那个,500分相谢,急用!!!
- 如何同时拥有C++ BUILDER 6.0 和 DELPHI 6.0
- 提问:如何在cooltrackbar里面加入鼠标的滚轮事件就是让鼠标的滚轮控制上下??????????????????????????
- 请教怎样保存象这样的临时记录?谢谢,急
- 为什么让我遇到这么难的一个API,如果我以后再也遇不到这么难的API怎么办,救命啊!!
真可怕!
不会
不屑
麻烦
没看
……
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;type
TRightMemo = class(TMemo)
private
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure WMChar(var Msg:TWMChar);message WM_CHAR;
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
published
property Align;
property Alignment;
property Anchors;
property BevelEdges;
property BevelInner;
property BevelKind default bkNone;
property BevelOuter;
property BiDiMode;
property BorderStyle;
property Color;
property Constraints;
property Ctl3D;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property ImeMode;
property ImeName;
property Lines;
property MaxLength;
property OEMConvert;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ScrollBars;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property WantReturns;
property WantTabs;
property WordWrap;
property OnChange;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag; end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('JStar', [TRightMemo]);
end;{ TRightMemo }procedure TRightMemo.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;procedure TRightMemo.WMChar(var Msg: TWMChar);
var
pt:TPoint;
begin
DefaultHandler(Msg);
if Msg.CharCode<>8 then
Begin
pt:=GetCaretPos;
pt.X:=pt.X-1;
SetCaretPos(pt);
end;
end;end.