谁有支持overwrite的edit控件？（200）找管家婆软件下载

财务软件版1楼: 即可重写（改写）的 edit？

2楼: 你的改写是什么概念
autoselect属性，不可以吗？如用友财务软件u8

3楼: 谢过 SiWeiLiuLang,
改写是什么概念？是象在word中一样，新录入的一个字符覆盖原光标右边的一个英文或汉字字符。如果录入的是词组，则顺次覆盖相应个数的字符。

4楼: 我没有使用控件，楼主觉得有必要，可以从TCustomEdit重新继承一个，以下测试代码给你了，楼主也可以从以下地址下载：
地址： ftp.mlfjnp.com
帐户和密码均为：dfw

unit frmMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
OverriteBtn: TButton;
procedure FormCreate(Sender: TObject);
procedure OverriteBtnClick(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
OverriteFlag:boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
OverriteFlag:=False;
end;

procedure TForm1.OverriteBtnClick(Sender: TObject);
begin
OverriteFlag:=not OverriteFlag;
if OverriteFlag then OverriteBtn.Caption:=＇＇改写＇＇
else OverriteBtn.Caption:=＇＇插入＇＇;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var tt:TPoint;
begin
if Key in [＇＇0＇＇..＇＇9＇＇,＇＇a＇＇..＇＇z＇＇,＇＇A＇＇..＇＇Z＇＇] then //在此可以加入一些判断，感觉输入汉字时，会有一点问题
if OverriteFlag then
begin
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0),
KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0),
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

GetCaretPos(tt);
Label1.Caption:=＇＇x=＇＇+IntToStr(tt.X)+＇＇,y=＇＇+IntToStr(tt.y);

end;

end.

5楼: 多谢 chnplzh。

你的示例除汉字未做处理外，对于用 shift 配合录入的字符（如按shift进行大小转换）也不能接收，你试一下

6楼: 有趣，没有想到 TEdit 没有这个功能，我写一个给你

财务软件版7楼: xuxiaohan 大侠:
太感谢了！急切期待着你的大作。

8楼: TvcEdit = class(TEdit)
private
FvAlign: TvAlign;
FhAlign: TAlignment;
FWordWrap: boolean;
FWantReturn: boolean;
FTextOffset: integer;
procedure SetvAlign(const Value: TvAlign);
procedure vAlignChange;
procedure SethAlign(const Value: TAlignment);
procedure SetWordWrap(const Value: boolean);
procedure SetWantReturn(const Value: boolean);
procedure SetTextOffset(const Value: integer);
[blue]procedure wmImeChar(var msg: Tmessage); message WM_IME_CHAR;
procedure wmChar(var msg: Tmessage); message wm_Char;[/blue]
protected
procedure KeyPress(var Key: Char); override;
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
published
property vAlign: TvAlign read FvAlign write SetvAlign;
property hAlign: TAlignment read FhAlign write SethAlign;
property WordWrap: boolean read FWordWrap write SetWordWrap;
property WantReturn: boolean read FWantReturn write SetWantReturn;
property TextOffset: integer read FTextOffset write SetTextOffset;

end;

procedure TvcEdit.wmImeChar(var msg: Tmessage);
begin
inherited;
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0), KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
BEEP;
end;

procedure TvcEdit.wmChar(var msg: Tmessage);
begin
inherited;
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0), KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(VK_DELETE, MapVirtualkey(VK_DELETE, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
BEEP;

end;

上面是在我的控件上面加上的。测试通过。