Q&A

  • 두개의 에디터에 커서가 놓인곳은 색깔 바꾸게 하는거 알려주세요
edit1과 edit2가 있습니다.

edit1에가 커서가 있을때는 파랑색으로 변하고
edit2를 클릭해서 커서를 이동시키면 edit1은 원래색이던 하얀색으로 변하고
edit2는 파랑색으로 변하는 걸 하고 싶습니다.

답변부탁드립니다.

좋은 하루되세요
1  COMMENTS
  • Profile
    홍성락 2002.10.17 09:09
    두개의 에디터 OnEnter와 OnExit이벤트에 연결하세요.

    procedure TForm1.Edit1Enter(Sender: TObject);
    begin
        TEdit(Sender).Color := clBlue
    end;

    procedure TForm1.Edit1Exit(Sender: TObject);
    begin
        TEdit(Sender).Color := clWhite
    end;
    hsr///////////////////////////////////////////////////