如何在EDIT文本框当前光标处插入文字?
解决方案 »
- 方法怎么返回值,以及在另一方法中怎么接收返回值
- 千元求条码功能,要求请见附页
- 谁能介绍一下delphi的stardard,additional的控件的详细的使用方法?
- 拜托大家--还是那个多媒体演示系统,很简单的要求,但是.......
- 如何实现定时关机,如晚上10:00关机,以后机器运行到此时就强制关机。高分
- 高分求教,如何用VB程序把中文转化为日文,韩文,并把该日文,韩文做为单据打印出来!
- delphi 找友
- 邮件监测器要怎么写??
- 如何用Socket编程统计出在线人数
- 可不可以,直接编写发E-MAIL...
- 用delphi7.0编了一个“人事档案管理”小程序,希望大家给点意见!
- 有关FixedCols和UseMultiTitle的 当日结帖
procedure Tfrminput.insterstr(istr:string);
var
insterpos,strlength:integer;
str1,str2:string;
begin
insterpos:=txtgs.SelStart;
strlength:=length(txtgs.Text)-insterpos;
str1:=copy(txtgs.Text,1,insterpos);
str2:=copy(txtgs.Text,insterpos+1,strlength);
txtgs.Text:=str1+istr+str2;
txtgs.SelStart:=length(txtgs.Text);
end;