科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件delphi三十六之编辑篇

delphi三十六之编辑篇

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

取得TMemo 控件当前光标的行和列信息到Tpoint中......

作者:陈立平 来源:yesky 2007年11月1日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
".": if HasDot = 0 then Inc(HasDot) else delete(ls1, li, 1); //检查小数点

"-": if (not HasDigit and (HasReduce = 0)) then Inc(HasReduce) else delete(ls1,li,1); //负数

else

delete(ls1,li,1); ////删除错误字符

end;

end;

If hasdigit then

text:=ls1

else

text:=ls + "0";

SelStart:=lk; //恢复光标位置

end;

end;

  4.使ComboBox进入时自动下拉列表

//在ComboBox的OnEnter事件中书写如下代码

SendMessage(ComboBox1.handle, CB_SHOWDROPDOWN, Integer(True), 0);
 

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闁喕娆㈢拋銏ゆ

    婵″倹鐏夐幃銊╂姜鐢瓕鎻╅崚鍥╂畱閹厖绨$憴顤廡妫板棗鐓欓張鈧弬棰侀獓閸濅椒绗岄幎鈧張顖欎繆閹垽绱濋柇锝勭疄鐠併垽妲勯懛鎶姐€婄純鎴炲Η閺堫垶鍋栨禒璺虹殺閺勵垱鍋嶉惃鍕付娴f娊鈧柨绶炴稊瀣╃閵嗭拷

    重磅专题
    往期文章
    最新文章