Отмена минимизации окна

← →
Аноним (2004-05-06 12:32) [0]

Есть 2 вопроса:

1. Как реализовать subj (щоб вообще никак user не мог прогу минимизировать).
2. Нужно, чтобы главную форму нельзя было перекрыть другими другими окнами.

Спасибо

← →
clickmaker © (2004-05-06 12:43) [1]

1. Убрать biMinimize из BorderIcons
2. FormStyle := fsStayOnTop

← →
Mamed © (2004-05-06 13:16) [2]

V evente OnMinimize napisi abort

← →
Polevi © (2004-05-06 14:02) [3]

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure OnShow(var Msg:TMessage);message WM_SHOWWINDOW;
end;

procedure TForm1.OnShow(var Msg: TMessage);
begin
if Msg.WParam=0 then
Msg.Result:=-1
else
inherited;
end;

← →
Сашенька (2004-05-07 12:06) [4]

//formcreate
Application.OnMessage := AppMess;

procedure TMainForm.AppMess(var Msg: tagMSG; varHandled: Boolean);
Begin
if (Msg.Hwnd = Handle)
And(MSG.Message=WM_SYSCOMMAND)
And(MSG.WParame=SC_MINIMIZE)Then
Handled := false;
End;

Отмена минимизации окна Найти похожие ветки