Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Function PreviewWndProc(Window:hWnd; Msg,WParam,LParam:Integer) : Integer;StdCall;

Begin

Result := 0;

Case Msg of

wm_NCCreate : Result := 1;

wm_Destroy : PostQuitMessage(0);

{ paint something }

wm_Paint : DrawSingleBox;

wm_KeyDown : QuitSaver := AskPassword;

wm_LButtonDown, wm_MButtonDown,

wm_RButtonDown, wm_MouseMove :

Begin

If (Not IsPreview) Then Begin

Dec(MoveCounter);

If (MoveCounter <= 0) Then

QuitSaver :=AskPassword;

End;

End;

Else Result := DefWindowProc

(Window,Msg,WParam,LParam);

End;

End;

Если мышь перемещается или нажата кнопки, мы спрашиваем у пользователя пароль:

Function AskPassword : Boolean;

Var

Рекомендуем скачать другие рефераты по теме: доклад на тему жизнь, контрольные 5 класс.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки