이주흥 께서 말씀하시기를...

> 말그대롭니다.

> 윈도우창 오른쪽 위에 있는 3개버튼중

> 최대화버튼(가운데꺼)를 disable시킬수 있나요?

> 있다면 방법을 좀...

> 너무 쉬울것 같다..쩝...

> 그럼 이만.



이주흥님 안녕하세요? 구창민입니다.

미련하다고 하실지 몰라도 이걸 찾으려고 한시간을

웹사이트를 돌아다녔네요..헥헥..ㅠㅠ

아래처럼 C 코드로 되어있는 것을 발견했습니다.



long style;



style=GetWindowLong(Handle,GWL_STYLE);

style&=~WS_MINIMIZEBOX;//disable the minimizebox

SetWindowLong(Handle,GWL_STYLE,style);



델파이로 포팅해서 Form의 OnCreate 이벤트 핸들러에

아래처럼 기술하시면 됩니다.



procedure TForm1.FormCreate(Sender: TObject);

var style : LongInt;

begin

style:= GetWindowLong(Handle,GWL_STYLE);

style:= style and (not WS_MAXIMIZEBOX); //최대화 버튼 Disabled

//style:= style and (not WS_MAXIMIZEBOX); //최소화 버튼 Disabled

SetWindowLong(Handle, GWL_STYLE, style);

end;



원리를 알아내니 정말 기쁘네요 ^^;

그럼.. 즐거운 프로그래밍 되시길

구창민 께서 말씀하시기를...

> 이주흥님 안녕하세요? 구창민입니다.

> 미련하다고 하실지 몰라도 이걸 찾으려고 한시간을

> 웹사이트를 돌아다녔네요..헥헥..ㅠㅠ

> 아래처럼 C 코드로 되어있는 것을 발견했습니다.

>

> long style;

>

> style=GetWindowLong(Handle,GWL_STYLE);

> style&=~WS_MINIMIZEBOX;//disable the minimizebox

> SetWindowLong(Handle,GWL_STYLE,style);

>

> 델파이로 포팅해서 Form의 OnCreate 이벤트 핸들러에

> 아래처럼 기술하시면 됩니다.

>

> procedure TForm1.FormCreate(Sender: TObject);

> var style : LongInt;

> begin

> style:= GetWindowLong(Handle,GWL_STYLE);

> style:= style and (not WS_MAXIMIZEBOX); //최대화 버튼 Disabled

> //style:= style and (not WS_MAXIMIZEBOX); //최소화 버튼 Disabled

> SetWindowLong(Handle, GWL_STYLE, style);

> end;

>

> 원리를 알아내니 정말 기쁘네요 ^^;

> 그럼.. 즐거운 프로그래밍 되시길

>



후후....제가 몰라서 API란에 질문을 올렸더니

API로 답변을 해주셨군요...

위에 규니 라는 분이 말씀하신데로 하니까

간단하게 되던데...괜히 고생시킨것 같아 몸둘바를 모르겠습니다...

제 질문에 그렇게 신경을 써주시다니..

어쨌든 또다른걸 알게되서 창민님께 감사드립니다..

그럼 Have nice day~!

폼의 borderIcon 프로퍼티 중 Maximize의 값을 False로



하세요.



이주흥 께서 말씀하시기를...

> 말그대롭니다.

> 윈도우창 오른쪽 위에 있는 3개버튼중

> 최대화버튼(가운데꺼)를 disable시킬수 있나요?

> 있다면 방법을 좀...

> 너무 쉬울것 같다..쩝...

> 그럼 이만.