设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 通过button1操作使edit1.text='Delphi program' ...

通过button1操作使edit1.text='Delphi program'，如何通过button2实现撤消动作

[复制链接]
查看11 | 回复5 | 2011-1-27 17:13:13 | 显示全部楼层 |阅读模式
通过button1操作使edit1.text='Delphi program'，如何通过button2实现撤消动作，就是撤消button1操作使edit1.text='Delphi program'，使edit1.text='';
这种给值方式可以撤消吗
请问用StringList记录Edit1中曾经输入的值，这个怎么实现呀，具体思路是什么呀，是数组方式吗，或能给个例子吗

回复

使用道具 举报

千问 | 2011-1-27 17:13:13 | 显示全部楼层
只是让Edit1为空的话，直接在Button2的点击事件中写edit1.text='';就可以如果是想做撤销功能，相当于CTRL+Z快捷键功能的话，那你得用StringList记录Edit1中曾经输入的值，然后再按照Button2的点击次数转换获取StringList中的值赋给Edit1
回复

使用道具 举报

千问 | 2011-1-27 17:13:13 | 显示全部楼层
procedure TForm1.Button1Click(Sender: TObject);vari,s:integer;beginif Edit1.Text='' then begin
ShowMessage('Edit1不能为空,请输入数字');
Exit;end;if Edit2.Text=
回复

使用道具 举报

千问 | 2011-1-27 17:13:13 | 显示全部楼层
button1的点击事件edit1.text := 'Delphi Program';button2的点击时间SL.add(edit1.text);edit1.text := '';窗体的Formshow或者FormCreate事件里SL := TStringList.Create;SL 要定义成公共变量
回复

使用道具 举报

千问 | 2011-1-27 17:13:13 | 显示全部楼层
Delphi中的赋值方式是:=为空的话应该改为Edit1.Text:='';设置内容为Edit1.Text:='Delphi program';
回复

使用道具 举报

千问 | 2011-1-27 17:13:13 | 显示全部楼层
可以的
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行