三个问题,有分的

bujian 2003-05-28 02:10:20
1、请问这什么一个框子是用什么做成的
|---------x|
| |
| |
|________ _|


它可以关闭,拉伸,是控件吗,还是一个子窗体,
x处是关闭键

2、在菜单的编辑里面设了一个撤消,但不知道代码如何写

3、如何辨别一个字符串中包含一定的字母呢
如在一个edit1框中可以输入old new tell 三个单词中的一个
根据不同的输入我做不同的操作
  old 对 action1
new 对action2
tell 对action3
...全文
17 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
digitman 2003-05-29
  • 打赏
  • 举报
回复
if pos('old',s) then
action1;
if pos('new',s) then
action1;
if pos('tall',s) then
action1;
walterwl 2003-05-28
  • 打赏
  • 举报
回复
1、这是个窗体只不过将BorderIcons里的biminimize什么的设为false,只有关闭是true
3、辨别输入的是什么就可以了
microjuz 2003-05-28
  • 打赏
  • 举报
回复
keke,不好意思,重复了~`~~
microjuz 2003-05-28
  • 打赏
  • 举报
回复
2.actionlist,actionmanager里有很多standard的action,里面有undo操作。
demo里有doc文件夹,里面有讲如何使用actionmanager,代码很少,功能很强哈~~
microjuz 2003-05-28
  • 打赏
  • 举报
回复
2。很多action,(undo也有)在actionlist,actionmanager的标准action里都有,不需要任何代码哈~~你看过delphi的Demo里的实例没有,有一个Doc文件夹,里面有类似的,代码很少,功能很强!!!
fatapple 2003-05-28
  • 打赏
  • 举报
回复
用trim只除去了空格,好像还是得用pos比较好。
wjsfr 2003-05-28
  • 打赏
  • 举报
回复
to : coreblood(菜码)
要先trim(edit1.text)才行,in my opinion:)
l_xiaofeng 2003-05-28
  • 打赏
  • 举报
回复
1、这个东西肯定是自己画的,而且可拉伸,不简单哦
2、例如 Memo.undo;
3、使用POS方法可以实现。
hansion3406 2003-05-28
  • 打赏
  • 举报
回复
没戏了...
coreblood 2003-05-28
  • 打赏
  • 举报
回复
if edit1.text:=old then
begin
end
else if edit1.text:=new then
begin
end
else
begin
end;
yyfzy 2003-05-28
  • 打赏
  • 举报
回复
1、用各种容器可以实现,例如TPanel,TScollBox等,但是,那个X估计要自己画;
2、编辑控件.Undo;
3、自己查查TString.Pos();的用法。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧