按回车键时,在TEXT中输入大于号怎么实现,谢谢!

Question

if key=13 then edit.text := edit.text+'>';

Answer 1

应该这样啊
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
    edit1.text:=edit1.text+'>';
end;end;

Answer 2

还有管这个的api??
api也管不了你的控件的text值啊！

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  bstr,estr:string;
begin
  bstr:=copy(edit1.Text,0,edit1.SelStart);
  estr:=copy(edit1.Text,edit1.SelStart+edit1.SelLength+1,length(edit1.Text));
  if key=13 then
     edit1.text:=bstr+'>'+estr;
  edit1.SelStart:=length(bstr)+1;
end;

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then key := '>';
end;