Question

delphi 在edit的Change事件里获取edit的部分选中状态的内容

例：edit.text := 'nimen' 字母en是选中状态，在走change事件时获取到字母en
seltext这个属性我知道，是要在走change事件的时候取到选中的内容 就像输入法一样文本框里输入字母是选中状态选择汉字后在输入字母

Answer 1

这个很容易的阿，edit有一个属性是seltext意思就是选中的内容
比如
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(edit1.SelText);
end;
试试就知道了。

走change事件是什么事件？？？请把问题描述清楚

Answer 2

看看这个 能不能满足你
procedure TForm1.Edit1Change(Sender: TObject);
var
p:Integer;
begin
p:=Pos('en',Edit1.text);
if p>0 then
Edit1.SelStart := p-1;
Edit1.SelLength := 2;
end;

追问

我想要的是边输入边选中，汉字要除外，就像输入法一样，输入字母都是在选中状态，选择汉字就没有状态了，再输入字母会继续选中

Answer 3

edit1.seltext
即为edit1中的选中内容