프리랜서 님이 쓰신 글 :
: keyDown에 넣고 사용하시면 됩니다.
: 다른방법도 있을텐데 저는 아래방법이 좀더 쉬운듯 싶더군요.
:
: procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
:   Shift: TShiftState);
: begin
:    if ((ssCtrl in Shift) AND (Key = ord('V'))) then
:    begin
:      edt1.PasteFromClipboard;
:      Key := 0;
:    end;
:    if ((ssCtrl in Shift) AND (Key = ord('C'))) then
:    begin
:      Edt1.CopyToClipboard;
:      Key := 0;
:    end;
:
:    if ((ssCtrl in Shift) AND (Key = ord('X'))) then
:    begin
:      Edt1.CopyToClipboard;
:      edt1.Clear;
:      Key := 0;
:    end;
:
: end;
:
:
: 사미 님이 쓰신 글 :
: : 전화번호를 입력받을 TEdit 컴포넌트에서
: :
: : 숫자만 입력이 되게 하고싶은데요
: :
: : keypress 부분에서
: :
: : if (key <> #8) and ((key < #46) or (key > #57)) then
: :    abort;
: :
: : 이렇게 쓰면 숫자만 입력이 되긴 하는데요~
: :
: : ctrl+c, ctrl+v가 안먹히거든요 ㅜㅜ
: :
: : 숫자가 입력이 되고.. 복사 붙여넣기 등의 기능도 가능하게 하려면..
: :
: : 어떻게 해야 할 지 잘 모르겠어요~ 조언 부탁드립니당~ ^^