Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[2787] [답변] PROREX/ [델파이] help me! 도와 주세요.
caneasy [ ] 1202 읽음    1998-05-12 14:55

   새로운 ListBox 컴포넌트를 만들면 됩니다.
   그러나 어렵지 않게 구현 할 수 있는데요...

   하나의 함수만 추가하면 됩니다.
   procedure CreateParams ...이 함수와
   내용은 Style의 속성중 Scroll 과 관련된 속성을 제거하면 됩니다.

   전체 소스는..

unit ListBoxTemp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TListBoxTemp = class(TListBox)
  public
    procedure CreateParams (var Params: TCreateParams); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Hjun', [TListBoxTemp]);
end;

procedure TListBoxTemp.CreateParams (var Params: TCreateParams);
begin
     inherited CreateParams (Params);
     with Params do
     Style := Style and not (WS_HSCROLL or WS_VSCROLL);
end;

end.

   위와 같이 하면 됩니다.
   그럼 즐거운 통신이 되시길...



+ -

관련 글 리스트
2787 [답변] PROREX/ [델파이] help me! 도와 주세요. caneasy 1202 1998/05/12
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.