Советы по Delphi

         

Разрушение модальной формы при деактивации


    procedure TForm1.AppDeactivate(Sender: TObject);
var
hw: HWnd; CurTask: THandle; WndStyle:Longint; begin
CurTask:=GetWindowTask(handle); hw:=GetWindow(GetDesktopWindow, GW_CHILD); while GetWindowTask(hw)<>CurTask do hw:=GetWindow(hw, GW_HWNDNEXT);while (hw<>handle) and (GetWindowTask(hw)=CurTask) do begin PostMessage(hw, WM_Close, 0, 0); hw:=GetWindow(hw, GW_HWNDNEXT); end; end;

[001736]



Содержание раздела