请教三个小问题.

Question

1  如何自已做一个按右键即弹出的POPUPMENU,  可以实现"复制","粘贴","剪掉"等功能?2 FORM1上有6个EDIT,每个EDIT开始的COLOR都是WHITE,如何实现隹点由一个EDIT到另一个EDIT
  时,刚获得隹点的EDIT的COLOR为RED?并且刚移开隹点的EDIT的COLOR为WHITE?
 (并且不要为 每个EDIT 的ONENTER和ONEXIT都写上代码)3. 我想按下键盘上的CTRL+C 就发生一事件,如何写代码?

Answer 1

object Form1: TForm1
  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
上面是第一个问题

Answer 2

通用,只需设一个edit,则此类可用
on enter
(sender as tedit).color:=clred;
on exist
(sender as tedit).color:=clwhite;

Answer 3

lyq(阿飞) ，你的回答很准确,多谢你.