1 如何自已做一个按右键即弹出的POPUPMENU, 可以实现"复制","粘贴","剪掉"等功能?2 FORM1上有6个EDIT,每个EDIT开始的COLOR都是WHITE,如何实现隹点由一个EDIT到另一个EDIT
时,刚获得隹点的EDIT的COLOR为RED?并且刚移开隹点的EDIT的COLOR为WHITE?
(并且不要为 每个EDIT 的ONENTER和ONEXIT都写上代码)3. 我想按下键盘上的CTRL+C 就发生一事件,如何写代码?
时,刚获得隹点的EDIT的COLOR为RED?并且刚移开隹点的EDIT的COLOR为WHITE?
(并且不要为 每个EDIT 的ONENTER和ONEXIT都写上代码)3. 我想按下键盘上的CTRL+C 就发生一事件,如何写代码?
解决方案 »
- (急)在delphi2007中怎么实现好像工具箱那样隐藏显示的功能
- delphi 的面向对象设计机制到底是怎样的?
- 关于Installshield的简单问题!急~!!!!!
- ?????????? 关于 ListView 奇怪的问题 ?????????????
- 安装 DevExpress.ExpressPrinting.System.v3.3.3 问题?
- 一个关于FastReport数据显示的问题,急!
- ztv 控件 大文件压缩问题, 用过的进~
- 单机版转换的问题!
- 来哦,来哦,大家走过,路过,帮帮这可怜的孩子吧!~
- 监测计算机是否在internet,计算机是用代理登陆网络的!!!????
- dbgrid和stringgrid那个更好?
- 并发操作:如果多人对同一个表进行更新操作该如何做?
Left = 192
Top = 133
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PopupMenu1: TPopupMenu
Left = 136
Top = 88
object N11: TMenuItem
Action = EditCopy1
end
object N21: TMenuItem
Action = EditCut1
end
object N231: TMenuItem
Action = EditPaste1
end
object N41: TMenuItem
Action = EditSelectAll1
end
object N51: TMenuItem
Action = EditDelete1
end
object N61: TMenuItem
Action = EditUndo1
end
end
object ActionList1: TActionList
Left = 384
Top = 160
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
ImageIndex = 0
ShortCut = 16472
end
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy|Copies the selection and puts it on the Clipboard'
ImageIndex = 1
ShortCut = 16451
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste|Inserts Clipboard contents'
ImageIndex = 2
ShortCut = 16470
end
object EditSelectAll1: TEditSelectAll
Category = 'Edit'
Caption = 'Select &All'
Hint = 'Select All|Selects the entire document'
ShortCut = 16449
end
object EditUndo1: TEditUndo
Category = 'Edit'
Caption = '&Undo'
Hint = 'Undo|Reverts the last action'
ImageIndex = 3
ShortCut = 16474
end
object EditDelete1: TEditDelete
Category = 'Edit'
Caption = '&Delete'
Hint = 'Delete|Erases the selection'
ImageIndex = 5
ShortCut = 46
end
end
end
上面是第一个问题
on enter
(sender as tedit).color:=clred;
on exist
(sender as tedit).color:=clwhite;