Q&A

  • 포커스 이동시
폼에 20개 정도의 입력컴포넌트가(Edit, combobox 등) 여러가지 컴포넌트가 있는데여 엔터시 이동은 구현했거든요 근데 이동시 다음 포커스로 갈때 색갈을 바꿀려구요 기존의 포커스 있는것은 특정색으로 바꿀려고 합니다..
아시는분은... 좀 알려주세요  물론 20개 컴포넌트이벤트에 넣으면 되는건 압니다. 그런 무식한 방법 말고요
이 게시물을
2  COMMENTS
  • Profile
    ^ㅡ^ • 2004.01.14 21:58


    동시에20개의 컴포넌트를 선택하고 이벤트 보면 onenter라는 이벤트가 있습니다
    그곳에서 님이 원하시는 작업을 하면 될꺼 같습니다.

    if (sender is Tedit) then
       (sender as Tedit).color = '블루';
    if (sender is Tcombobox) then
       (sender as Tcombobox).color = '블루';

    이런식으로 하면 될꺼 같네요....
  • Profile
    시나브로 • 2004.01.14 20:42
    자세히는 모르겠지만 저두 초보라서여.. ㅡ.ㅡ;

    procedure TForm1.Button1Click(Sender: TObject);

    var
      i: Integer;
    const
      NamePrefix = 'MyEdit';
    begin
      for i := 1 to 20 do begin
        TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
        with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
        begin
          Left := 10;
          Top := i * 20;
          Parent := self;
        end;
      end;
    end;

    도움말에서 "FindComponent" 찾아보세여 아님 이곳 게시판에서도 찾으면

    많은 도움이 되지 않을까 합니다. 위 소스는 도움말에 있는 예제입니다.
←First Page
507 508 509 510 511 512 513 514 515 516
Last Page→
한델 로그인 하기