Показать сообщение отдельно
  #2  
Старый 28.04.2009, 21:20
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

А я вот попробовала написать Application.Minimize в методе OnCreate, но окно-то при запуске программы не сворачивается (но уходит вниз Z-порядка). Хотя и не должно сворачиваться, вроде бы. И в справке так и сказано: "не путайте метод Minimize всего приложения с минимизацией окна".

Потерю активности кнопки сворачивания можно "вылечить", обрабатывая в своей программе сообщение WM_SYSCOMMAND. Вот так, например:
Код:
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  { Private declarations }
  procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
public
  { Public declarations }
end;

............

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.Minimize;
end;

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then ShowWindow(Handle, SW_MINIMIZE);
  inherited;
end;
Ответить с цитированием