Кнопка свернуть

[_-Re@l-_]

Как бы мне вариант

Ну тогда в разделе Public пишем следующую строку
Код:

procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
далее после слова implementation описываем эту процедуру
Код:

Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
//здесь делаем что надо
end else inherited;
end;

нравится больше

эээ! Можно обойти эту хрень! Правой кнопкой на панели задач кликаешь и выбираешь свернуть!

Ну и ? нажму я свернуть и свернётся окно, а мне этого не нужно

[Object Kiri]

Ну, тогда как сделать так, что-бы реагировал и на нажатие на кнопку свернуть и команду свернуть с панели задач???
Help! Need Backup!

[_-Re@l-_]

Мне это не важно, тем более не каждый догадается нажать на панели задач свернуть

[Object Kiri]

Я про оба способа! И там и там оно сворачивается. через панель задач. и все зря....

Ну,а вдруг такой зануда пользователь попадёться? К тому-же мне чисто интересно.)

[_-Re@l-_]

Как бы при нажатии обычной кнопки окно не сворачивается, а просто становится почти прозрачным. Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
 if msg.CmdType=SC_MINIMIZE  then
 begin
  Timer1.Enabled:=true;
 end else inherited;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     If Form1.AlphaBlendValue>50 then
     Form1.AlphaBlendValue:=Form1.AlphaBlendValue-2;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
     Timer1.Enabled:=False;
end;

end.

[Object Kiri]

А я если не секрет нафига оно надо?)

[_-Re@l-_]

ну как бы... это всего лишь кусок кода, оно мне надо для моего приложения

[Object Kiri]

Ну,если окно станет прозраным оно никуда не денеться и будет также реагировать на действие с ним,что будет только бесить..

[_-Re@l-_]

ну ... да... просто я поменяю потом в коде

 If Form1.AlphaBlendValue>50 then

на:

 If Form1.AlphaBlendValue>0 then

и

Form1.Enabled:=False;

Так приложение вообще не будет видно =)

[Object Kiri]

Потрясающе.А свернуть - его тоже не видно.)
Только графическая анимация и никакой смысловой нагрузки