Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 SetWindowRgn(Handle, R, True);

end;

Как запретить кнопку Close [×] в заголовке окна?

Nomadic советует:

Вот кусок, который делает все, что тебе нужно:

procedure TForm1.FormCreate(Sender: TObject);

var Style: Longint;

begin

 Style := GetWindowLong(Handle, GWL_STYLE);

 SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU);

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

 if (Key = VK_F4) and (ssAlt in Shift) then begin

MessageBeep(0);

Key := 0;

 end;

end;

{ Disable close button }

procedure TForm1.Button1Click(Sender: TObject);

var SysMenu: HMenu;

begin

 SysMenu := GetSystemMenu(Handle, False);

 Windows.EnableMenuItem(SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED);

end;

{ Enable close button }

procedure TForm1.Button2Click(Sender: TObject);

begin

 GetSystemMenu(Handle, True);

 Perform(WM_NCPAINT, Handle, 0);

end;

Но

это окно можно закрыть из TaskBar'а. 

Мерцание формы

Как бы это осуществить рисование в окне без его дурацкого мерцания и без помощи создания виртуального изображения в памяти? WM_SETREDRAW здесь поможет?

Попробуйте этот код. Даже если некоторые компоненты имеют пару BeginUpdate / EndUpdate, то для таких компонентов, как TTreeView, интенсивное рисование может послужить причиной перемещения полосы прокрутки и появления других «барабашек». В таких ситуаций вместо дескриптора элемента управления используйте родительский дескриптор.

procedure BeginScreenUpdate(hwnd : THandle);

begin

 if (hwnd = 0) then hwnd := Application.MainForm.Handle;

 SendMessage(hwnd, WM_SETREDRAW, 0, 0);

end;

procedure EndScreenUpdate(hwnd : THandle; erase : Boolean);

begin

 if (hwnd = 0) then hwnd := Application.MainForm.Handle;

 SendMessage(hwnd, WM_SETREDRAW, 1, 0);

 RedrawWindow(hwnd, nil, 0, DW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);

 if (erase) then Windows.InvalidateRect(hwnd, nil, True);

end;

– Jeff Johnson 

Минимизация

модального окна

Мне нужно открыть из моей формы модальное окно, т.е. приостановить работу в моей форме до обработки этого модального окна. Но при этом я теряю возможность убрать (минимизировать) мою форму

Nomadic советует:

function TMyForm.Execute: TModalResult;

begin

 Show;

 try

SendMessage(Handle, CM_ACTIVATE, 0, 0);

ModalResult := 0;

repeat

Application.HandleMessage;

if Application.Terminated then ModalResult := mrCancel;

if ModalResult = mrCancel then CloseModal;

until ModalResult <> 0;

Hide;

Result := ModalResult;

SendMessage(Handle, CM_DEACTIVATE, 0, 0);

 finally

Hide;

 end;

end;

Конечно, в TMyForm должно быть FormStyle := fsStayOnTop;

Прозрачная форма

Dmitry V. Koreyba советует:

Высылаю прогу которая делает прозрачной форму. Может кому-нибудь поможет в его дизайнерских изысканиях.

var FullRgn, ClientRgn, CtlRgn : THandle;

procedure TForm1.DoInvisible;

var

 AControl : TControl;

 A, Margin, X, Y, CtlX, CtlY : Integer;

begin

 Margin := (Width - ClientWidth) div 2;