MDI Child Form의 Caption Title을 없애기 위하여,
CreateParams를 override하여, 윈도우 스타일에서 WS_CAPTIOMN을 제거하여줌.
type ... = class(TForm) { other stuff above } procedure CreateParams(var Params: TCreateParams); override; { other stuff below } end; ... Procedure MdiChildForm.CreateParams( var Params : tCreateParams ) ; Begin Inherited CreateParams( Params ) ; Params.Style := Params.Style and (not WS_CAPTION) ; End ;
● MDI Child폼의 최대화/최소화/이전사이즈
procedure TForm1.Minimize1Click(Sender: TObject); begin ShowWindow(Button1.Handle, SW_SHOWMINIMIZED); end; procedure TForm1.Maximize1Click(Sender: TObject); begin ShowWindow(Button1.Handle, SW_SHOWMAXIMIZED); end; procedure TForm1.Restore1Click(Sender: TObject); begin ShowWindow(Button1.Handle, SW_RESTORE); end;
[사족]
SyntaxHighlight Plugin을 만들었다. Google의 SyntaxHighlighter를 TextCube에 맞게 수정했는데, 아직 맘에 드는 수준은 아니라서 공개하지 않기로.. -_-;