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에 맞게 수정했는데, 아직 맘에 드는 수준은 아니라서 공개하지 않기로.. -_-;




