[segas]

Подскажите пожалуйста вормулу:
Чтобы при нажатии на кнопку Button1 ворма сворачивалась, на Button2 разворачивалась.
и еще вопросик:
Как называется событие которое вызывается при нажатии на кнопку свернуть (развернуть)? Например с кнопкой "закрыть" работают события
OnClose и OnCloseQuery.

[Nyctos Kasignete]

Небольшой ответик.

Сообщение от segas

Чтобы при нажатии на кнопку Button1 ворма сворачивалась, на Button2 разворачивалась.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_MINIMIZE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(Handle, SW_SHOWMAXIMIZED);
end;

Как называется событие которое вызывается при нажатии на кнопку свернуть (развернуть)?

Такие события формы явно не предусмотрены. Но их можно отлавливать по сообщениям WM_SYSCOMMAND, отсылаемым окну.

[segas]

Сообщение от Nyctos Kasignete

Небольшой ответик.
Такие события формы явно не предусмотрены. Но их можно отлавливать по сообщениям WM_SYSCOMMAND, отсылаемым окну.

Просто мне при нажатии на кнопку свернуть необходимо чтобы форма свенулась в трей (компоненты все есть) как зделать ненаю просто...

[Nyctos Kasignete]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

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

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then
  begin
    // здесь ваши действия, которые должны выполняться при минимизации
  end;
  inherited;
end;

[PhoeniX]

Посмотри в разделе исходники (далеко внизу форума), там мой Windows Hider, там есть этот отлов... И все действия, чтоб и кнопка на таскбаре, и сама форма сныкалась... То же самое делал, в трей прятал прогу...

ЗЫ: Это будет информативнее пред. ответа... ИМХО.