한태현 wrote:

> 델파이 초보자 입니다.

> 버튼 이나 스피드버튼의 caption을 두줄로 표현할 수 있는 방법이 있나요?

> 즉 한개의 버튼 caption에 글자가 많을 경우 2줄로 표현하고 싶은데...

>

> 예를들면

> +---------------------------+ +-----------------+

> | 이곳을 누르면 실행합니다. | --> | 이곳을 누르면 |

> +---------------------------+ | 실행합니다. |

> +-----------------+

> 이렇게...

>

> 다른 툴에서는 쉽게 되던데.....

>

>



델파이에는 공짜로 구할 수 있는 무궁무진한 컴포넌트들이 있습니다. 전 Rxlibrary라는 컴포넌트모음을 즐겨 사용하는데 거기에 보면 RxSpeenButton이 있습니다. Glyph속성에는 그림을 넣을 수 있고, worldwrap도 가능한 SpeedButton입니다. 자료실에 Rxlibray2.6이 있는 것 같은데 직접 코딩하시거나 만드시는게 싫으시면 다운받아 써보세요.

꽤 쓸만할 거라고 생각합니다.

>

한태현 wrote:

> 델파이 초보자 입니다.

> 버튼 이나 스피드버튼의 caption을 두줄로 표현할 수 있는 방법이 있나요?

> 즉 한개의 버튼 caption에 글자가 많을 경우 2줄로 표현하고 싶은데...

>

> 예를들면

> +---------------------------+ +-----------------+

> | 이곳을 누르면 실행합니다. | --> | 이곳을 누르면 |

> +---------------------------+ | 실행합니다. |

> +-----------------+

> 이렇게...

>

> 다른 툴에서는 쉽게 되던데.....

>

>



아래는 Button1의 캡션을 여러줄로 표현하는 예제입니다.

버튼의 높이와 폭을 적당히 조절하신 뒤

아래 코드를 Form의 Activate이벤트 핸들러에 기술하면

버튼의 넓이에 따라 Caption이 강제개행이 됩니다.



procedure TForm1.FormActivate(Sender: TObject);

var

MinButton: Longint;

begin

MinButton := GetWindowLong(Button1.Handle, GWL_STYLE);

SetWindowLong(Button1.Handle, GWL_STYLE, MinButton or BS_MULTILINE);

Button1.Caption := 'My Name is Koo ChangMin. I am an office worker~';

end;



디자인 시간엔 보실수 없구요.

실행시켜 보시면 결과를 아실수 있을 겁니다

그럼 즐거운 프로그래밍 되시길 바랍니다.