Q&A

  • FINDCOMPONENT에서....
다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에러가 발생하는데

어떻게 해야 하는지가 궁금합니다.



현재 폼에서 FCreateform에 있는 콤퍼넌트들을 찾아서 속성을 변경하려면..

if Seppos>1 then cmp:=Copy(result,1,Seppos-1);

swap := FCreateform.findcomponent(cmp);

if assigned(swap)then

swap.color := Shape39.Brush.Color ;

4  COMMENTS
  • Profile
    이만준 1999.12.08 21:40
    장덕권 wrote:

    > 다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에러가 발생하는데

    > 어떻게 해야 하는지가 궁금합니다.

    >

    > 현재 폼에서 FCreateform에 있는 콤퍼넌트들을 찾아서 속성을 변경하려면..

    > if Seppos>1 then cmp:=Copy(result,1,Seppos-1);

    > swap := FCreateform.findcomponent(cmp);

    > if assigned(swap)then

    > swap.color := Shape39.Brush.Color ;



    안녕하세요..



    swap 이 뭔가요..?

    그형으로 바꿔줘야 합니다.



    Label 이라면 TLabel(swap).color := Shape39.Brush.Color ;





  • Profile
    장덕권 1999.12.09 19:57
    이만준 wrote:

    > 장덕권 wrote:

    > > 다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에러가 발생하는데

    > > 어떻게 해야 하는지가 궁금합니다.

    > >

    > > 현재 폼에서 FCreateform에 있는 콤퍼넌트들을 찾아서 속성을 변경하려면..

    > > if Seppos>1 then cmp:=Copy(result,1,Seppos-1);

    > > swap := FCreateform.findcomponent(cmp);

    > > if assigned(swap)then

    > > swap.color := Shape39.Brush.Color ;

    >

    > 안녕하세요..

    >

    > swap 이 뭔가요..?

    > 그형으로 바꿔줘야 합니다.





    swap은 panel입니다. 그래서 마지막 줄에

    TPanel(swap).color := Shape39.Brush.Color ; 라고 했는데도 계속 같은 에러가 나네요.

    왜 그러죠?

    >

    > Label 이라면 TLabel(swap).color := Shape39.Brush.Color ;

    >

    >

  • Profile
    이만준 1999.12.09 22:05




    안녕하세요...



    swap 이 판넬이 맞다면..에러가 안나야는데요...



    if assigned(swap)then

    swap.color := Shape39.Brush.Color ;



    이부분을 if swap is TPanel

    then TPanel(swap).color := Shape39.Brush.Color ;



    이렇게 고치고 해보시죠...



    그럼...



    >장덕권 wrote:

    > 이만준 wrote:

    > > 장덕권 wrote:

    > > > 다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에러가 발생하는데

    > > > 어떻게 해야 하는지가 궁금합니다.

    > > >

    > > > 현재 폼에서 FCreateform에 있는 콤퍼넌트들을 찾아서 속성을 변경하려면..

    > > > if Seppos>1 then cmp:=Copy(result,1,Seppos-1);

    > > > swap := FCreateform.findcomponent(cmp);

    > > > if assigned(swap)then

    > > > swap.color := Shape39.Brush.Color ;

    > >

    > > 안녕하세요..

    > >

    > > swap 이 뭔가요..?

    > > 그형으로 바꿔줘야 합니다.

    >

    >

    > swap은 panel입니다. 그래서 마지막 줄에

    > TPanel(swap).color := Shape39.Brush.Color ; 라고 했는데도 계속 같은 에러가 나네요.

    > 왜 그러죠?

    > >

    > > Label 이라면 TLabel(swap).color := Shape39.Brush.Color ;

    > >

    > >

  • Profile
    장덕권 1999.12.10 01:17
    이런 에러메세지가 뜨는데요 컴파일시에는 에러가 없고 실행시에 이런 메세지가 뜹니다.



    Project form1.exe raised exception class EAccess Violation with message ....



    여기 소스의 전문을 올려보겠읍니다.





    procedure TFCreateForm.attrwrite;

    var

    swap : TComponent;

    Seppos : integer;

    result,cmp : string;

    begin

    Result:='';

    result := objectinspector.componentlist.text;

    Seppos:=Pos(':',result);

    if Seppos>1 then cmp:=Copy(result,1,Seppos-1);

    swap := findcomponent(cmp);

    if comp is TPanel then

    TPanel(swap).color := FColor.Shape39.Brush.Color ;

    end;





    이 함수는 델파이처럼 동작하는 프로그램입니다. 오브젝트인스펙터 상단의 콤보박스(componentlist)에서 현재

    활성화된 콤퍼넌트의 이름을 가져와서 그 콤퍼넌트의 색상을 바꾸는 부분입니다.

    만약 panel만 존재한다고 가정하고 했을때 이 소스가 정확한 것인지를 알려주세요.







    • 김대호
      1999.12.10 19:44
      새벽공기 wrote: > 퀵리포트 사용시 그룹헤더밴드를 쓰고 > 첫번째 그룹내용을 QrExpr컴포넌트에 Copy(c...
    • 이재식
      1999.12.08 09:30
      새벽공기 wrote: > 퀵리포트 사용시 그룹헤더밴드를 쓰고 > 첫번째 그룹내용을 QrExpr컴포넌트에 Copy(c...
    • 신호성
      1999.12.08 17:52
      성기정★★ wrote: > 수고 많으십니다. 지금 MS-Sql 쓰고, 델파이를 써서 프로그램을 하고 있는데.. > 문제...
    • 장덕권
    • 1999.12.08 05:44
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 이만준
      1999.12.08 21:40
      장덕권 wrote: > 다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에러가 발생하는데 > ...
    • 장덕권
      1999.12.09 19:57
      이만준 wrote: > 장덕권 wrote: > > 다른 폼에 있는 콤포넌트를 찾는 코드입니다. 계속 마지막줄에서 에...
    • 이만준
      1999.12.09 22:05
      안녕하세요... swap 이 판넬이 맞다면..에러가 안나야는데요... if assigned(swap)then swap....
    • 장덕권
      1999.12.10 01:17
      이런 에러메세지가 뜨는데요 컴파일시에는 에러가 없고 실행시에 이런 메세지가 뜹니다. Project form1....
    • 안명호
    • 1999.12.08 05:28
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 오기주
      1999.12.09 00:08
      안명호 wrote: > 제목 그대로 입니다. > > 특정 앨리어스(alias)의 경로를 알아내는 방법을 알고 싶습...
    • 안명호
      1999.12.10 05:58
      오기주 wrote: > 안명호 wrote: > > 제목 그대로 입니다. > > > > 특정 앨리어스(alias)의 경로를 알...
    • 좋은날
    • 1999.12.08 05:24
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.12.09 03:15
      나이렉스 홈페이지에 가면 Diamond라는 컴포넌트(상용)이 있습니다. 요것을 사용하면 무척 빨라지죠. DA...
    • 전철호
      1999.12.09 02:33
      열심희 wrote: > 원격지의 크라이언트에서 어떻게 하면 Client Application이 실행이 됩니까? > NT나 98...
    • 열심희
      1999.12.08 07:03
      앞의 방법으로 원격지에서 실행을 하니 다음과 같은 에러가 뜹니다. ' exception ElntfcaseError in M...
    • 박성훈
    • 1999.12.08 03:50
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.08 09:35
      박성훈 wrote: > MDI폼에서 Active된 폼이 없을 때 Enter키를 쳐서 제일 왼쪽의 상위메뉴를 클릭한 것처럼...
    • 윤병익
    • 1999.12.08 03:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.08 09:02
      윤병익 wrote: > 안녕하세요.. 요즘 델파이를 공부하고 있는 사람입니다... > 요즘 채팅 프로그램을 만들...
    • nilriri
    • 1999.12.08 01:47
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 이주흥
    • 1999.12.08 01:40
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.08 08:59
      이주흥 wrote: > 안녕하세요... > 음...혹시 이거 어케 하는지요... > sendtext로 서버에 있는 스트링형...
    • 이주흥
      1999.12.08 11:16
      안녕하세요.. 답변 감사합니다.. 근데 한가지 궁금한게 있거든요... 스트링형 변수는 255자의 문자까지...
    • 구창민
      1999.12.08 20:45
      이주흥 wrote: > 안녕하세요.. > 답변 감사합니다.. > 근데 한가지 궁금한게 있거든요... > 스트링형 ...
    • 이주흥
      1999.12.08 21:40
      오옷...캄사합니다.. 전 그런줄도 모르고... 역시 전 파맹(파스칼 맹) 같네요...캬캬... 다시 한번 캄사...
    • 구창민
      1999.12.08 08:55
      copretns wrote: > 저의 질문 요지는 요거에여~ > SystemParametersInfo(SPI_SETBEEP, 1, Pchar(0), 0); ...
    • copretns
      1999.12.08 01:44
      copretns wrote: > 저의 질문 요지는 요거에여~ > SystemParametersInfo(SPI_SETBEEP, 1, Pchar(0), 0); ...
    • halight
    • 1999.12.08 01:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김상면
      1999.12.08 02:16
      제가 방금 트리거를 하나 만들어서 아래와 같이 테스트를 해봤습니다... CREATE OR REPLACE TRIGGER T_CD_...
    • 이만준
      1999.12.08 21:43
      송수현 wrote: > 안녕하세요 봐주셔서 감사드립니다. 꾸벅~! > > 폼의 왼쪽 상단의 아이콘을 아예 안보...
    • 강윤환
    • 1999.12.08 00:34
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.12.08 00:48
      Ord 함수를 사용하세요. 강윤환 wrote: > 바이너리인 데이터를 > > 캐릭터 배열에 저장했는데요......
    • 강윤환
      1999.12.08 18:47
      감사합니다. 잘 해결이 되었네요. 앞으로도 많이 답변해 주세요. 이정욱 wrote: > Ord 함수를 사...