장일형 wrote:

> 판넬에 여러줄의 Caption 출력하는 법은 없을까요?

> chr(13)을 사용해도 않되는데요.







아래처럼 새로운 판넬을 상속하고,

사용하면 나머지는 Canvas 속성을 그대로 이용할수 있게 됩니다.

도형이나 선을 표현할수도 있고,

문자를 표현시 TextOut 으로 직접 쓰시면 됩니다.



아래 간단한 예를 들겠습니다.

type

TChangMinPanel = class(TPanel);



type

TForm1 = class(TForm)

Button1: TButton;

Panel1: TPanel;

...

...

...



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

//Panel1에 문자를 표현합니다.

with TChangMinPanel(Panel1).Canvas do

begin

Pen.Color:= clBlack;

TextOut(10,10,'판넬에도 문자를 마음대로 쓸수있다.');

TextOut(10,25,'냐하하~.');

end;

end;



즐거운 프로그래밍 되세요~~