TEdit(实现像VFP中的Init和unLoad事件) 1.如何使TEdit保存上次用户录入的字符(它好像没有像VFP中的Init和unLoad事件,在VFP中我可以用这两个事件来实现)?这样的组件么样做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以用一个文本文件先保存,或写到注册表,或用SHELL来实现 procedure TForm1.Edit1Exit(Sender: TObject);beginend;procedure TForm1.Edit1Click(Sender: TObject);beginend;procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginend; 从TEdit继承一个组件,发布1个只读属性用来保存它就行了—————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。————————————————————————————————— 能不能够做向vfp中的init和unload事件?在这个控件初始始读取上次的值,在这个控件销毁时,保存这次录入的值。这样可能好一些。 新手提问,控件怎么安装? oracle表锁的问题 急问 用adotable或adoquery组件删除access中的记录 不用手机,就可免费下电影 要学习4中的内容该看哪几本书,请高手指点! 打印机是EPSON LQ 1600K,如何设置用多层纸打印送货单的问题? 如果没有midas许可,开发的多层程序会出现什么结果? DBRadioGroup怎么用,对应什么字段? 在delphi 中如何实现存储 我想创建一张VFP格式的数据表格 dbgrid中的lookup字段值能修改吗?
beginend;
procedure TForm1.Edit1Click(Sender: TObject);
beginend;procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
beginend;
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
这样可能好一些。