如何在edit中在光标的停留位置插入字符(倾我所有,请求帮助)(15分)

X

xululee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #1

请问:
如何在edit中在光标的停留位置插入字符,例如,edit中有字符abcd,此时光标停留在c前,我插入一个字符f后,则edit中的内容变为abfcd,如果光标停留在d前,我插入一个字符f后,则edit中的内容变为abcfd.

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #2

procedure InsertStr(AEdit: TEdit; S: String);
var
S1, S2: String;
Id: Integer;
begin
with AEdit do
begin
Id := SelStart;
S1 := Copy(Text, 1, Id);
Id := SelStart + SelLength;
S2 := Copy(Text, Id + 1, Length(Text) - Id);
Text := S1 + S + S2;
SetFocus;
SelStart := SelStart + Length(S);
end;
end;

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #3

本来就是那样呀，你想干什么？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #4

不要任何过程就可以可以的……

 

X

xululee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #5

我的意思不是指直接在edit中输入数据,而是edit中已经有一些数据,这些数据不固定,而我需要每次往这些不固定的数据中插入固定的某些字符,插入位置不定,比如利用右健popmenu来输入一些特定字符,如果按普通的办法,就如:edit.text:=edit.text+'某些字符',这样字符只能加在原有字符的最后边,而我现在想让字符加在任意位置,即光标停留的位置.

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #6

var s: string
begin
s := Edit1.Text;
Insert(yourstring, s, yourposition);
Edit1.Text :=s ;
end;

 

W

wint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #7

...........//不知道该说什么
edit1.seltext:='f';

 

X

xululee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #8

SuperMMX:
我就是不知道insert函数中的yourposition如何确定,也就是光标所在位置的值如何确定?

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #9

你的意思是在当前 caret 的位置插入？
Edit1.SelStart

 

X

xululee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #10

thank you.

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #11

另一种特别的方法
Edit1.Perform(WM_IME_CHAR, Word（'c', 0);
则把c插入到光标所在位置

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #12

少了一个")"

Edit1.Perform(WM_IME_CHAR, Word（'c'), 0);

 

X

xululee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #13

多人接受答案了。