Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Предохранить форму от сворачивания

Автор: barrbos 12.1.2010, 03:50

Здраствуйте!
вообще нужна ваша помощь в делфи не селен но чень надо (ну как обычно smile

) нужно запретить форме сворачивацо
код наешл но как правельно вписать его не знаю

Код


implementation

 procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
 begin
   if not Msg.Show then
     Msg.Result := 0
   else
     inherited;
 end;

если просто вставляю то пишет ошибку ... помогите пожалуйста

Автор: bems 12.1.2010, 19:40

M
bems

Кнопка КОД справа над полем быстрого ответа. И албантцкей уже года два как не в моде

Автор: ~FoX~ 12.1.2010, 20:52

barrbos, Объявить надо

Код


type
  TForm1 = class(TForm)
  private
    procedure WMShowWindow(var Msg: TWMShowWindow); message WM_SHOWWINDOW; //например тут
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
  if not Msg.Show then Msg.Result := 0
  else inherited;
end;

Автор: Andreyzpr 14.1.2010, 15:47

А можно как то сделать, что бы форма не сворачивалась при нажатии на "Свернуть все окна" ?

Автор: bems 14.1.2010, 18:31

Andreyzpr
1. Не делай этого. Если юзер хочет свернуть, у него должна быть такая возможность.
2. Один топик - один вопрос
3. Уже осуждалось.