[Roman2807]

По делфи. Можно ли сделать кнопку формы maximize невидимой или убрать вообще, не убирая minimize? если можно, то как?

[NIch]

2 способа
1. В Object Inspector твоей формы есть поле BorderIcons...там напротив Maximize ставишь false
2. Или так в коде на нужное событие (Create, Click, Move и т.д.), только убери тот параметр который не нужен...

Код:

1	Form_Main.BorderIcons := [biSystemMenu, biMinimize, biMaximize, biHelp];

[Roman2807]

Это все понятно, но в обоих вариантах кнопка maximize остается, но как не активная, а нужно что бы она вообще с окна исчезла, а minimize осталась.

[NIch]

Думаю только убрав все и нарисовав свои...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

Четвёртая кнопка на заголовочной полосе окна -------------------------------------------------------------------------------- unit Unit1;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ComCtrls, ExtCtrls, StdCtrls;   const   wm_BtnClk = wm_User + 111;{Определяем своё сообщение}   type   TForm1 = class(TForm)     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     R: TRect;{Переменная для обозначения прямоугольной области кнопки}     Press: Boolean;     procedure WmNcPaint(var Msg: TWmNcPaint); message wm_NcPaint;     procedure WMNcActivate(var msg: TwmncActivate); message wm_NcActivate;     procedure WmNcLButtonDown( var Msg: TWMNCLBUTTONDOWN); message Wm_NCLbuttonDown;     procedure wmnchittest(var Msg: TWMncHITTEST); message wm_NcHittest;     procedure wmSize(var Msg: TMessage); message wm_Size;     procedure wmncLButtonUp(var msg: TWMncLBUTTONUP); message wm_NclButtonUp;     procedure wmLbuttonUp(var Msg: TMessage); message wm_LbuttonUp;     procedure wmBtnClk(var msg: TMessage); message wm_BtnClk;   public     { Public declarations }     procedure DrawBtn; end;   var   Form1: TForm1;   implementation   {$R *.DFM}   { TForm1 }   procedure TForm1.WmNcPaint(var Msg: TWmNcPaint); begin   inherited;   Drawbtn;{При перерисовке окна прорисовываем кнопку} end;   procedure TForm1.DrawBtn;{Код прорисовки кнопки} var   WDc: HDc;   Cx, Cy: Integer;   XFrame, Yframe: Integer; begin   {Получаем контекст нашего окна, снимаем мерки с оконных размеров,   вычисляем положение нашей кнопки и прорисовываем её в зависимости   от того нажата ли кнопка мыши над ней}   WDc := GetWindowDc(Handle);   Cx := GetSystemMetrics(SM_CXSize);   Cy := GetSystemMetrics(SM_CYSize);   xFrame := GetSystemMetrics(SM_CXFrame);   yFrame := GetSystemMetrics(SM_CYFrame);   R := Bounds(Width - xFrame - 4*Cx + 2, yFrame + 2, Cx - 2, Cy - 4);   if Press then     DrawFrameControl(WDc,R,DFC_BUTTON,DFCS_ButtonPUSH or DFCS_PUSHED)   else     DrawFrameControl(WDc,R,DFC_BUTTON,DFCS_ButtonPUSH);   ReleaseDc(Handle,WDC); end;   procedure TForm1.WMNcActivate(var msg: TwmncActivate); begin   inherited;   DrawBtn; end;   procedure TForm1.WmNcLButtonDown(var Msg: TWMNCLBUTTONDOWN); var   pt: TPoint; begin   inherited;   drawbtn;   pt := Point(msg.XCursor - Left,msg.YCursor - top);   if PtInRect(R,pt) then   begin     Press := True;     drawbtn;   end; end;     procedure TForm1.wmnchittest(var Msg: TWMncHITTEST); var   pt: tpoint; begin   inherited;   pt :=Point(msg.XPos - Left, msg.YPos - Top);   if PtinRect(r,pt) then     msg.Result := htBorder; end;   procedure TForm1.wmSize(var Msg: TMessage); begin   inherited;   RedrawWindow(Handle, PRect(0), 0, RDW_FRAME or RDW_NOINTERNALPAINT     or RDW_INVALIDATE); end;   procedure TForm1.wmncLButtonUp(var msg: TWMncLBUTTONUP); var   pt: TPoint; begin   inherited;   pt := Point(msg.XCursor - Left,msg.YCursor - top);   if PtInRect(R,pt) then   begin     Press := False;     drawbtn;     PostMessage(Handle,wm_btnClk,0,0);   end; end;   procedure TForm1.wmLbuttonUp(var Msg: TMessage); begin   inherited;   if Press then   begin     Press := False;     DrawBtn;   end; end;   procedure TForm1.wmBtnClk(var msg: TMessage); begin   {Объявили константу своего сообщения,   посылаем его своему окну при отпускании кнопки мыши над новой кнопкой,   а здесь обрабатываем своё сообщение}   ShowMessage('О, круто, наша кнопка нажимается! Спасибо проекту Delphi World!'); end;   procedure TForm1.FormDestroy(Sender: TObject); begin   RedrawWindow(Handle, PRect(0), 0, RDW_FRAME or RDW_NOINTERNALPAINT     or RDW_INVALIDATE); end;   end.