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

[Xcopy]

Как сделать так, что бы при нажатии на кнопку свернуть, на форме, программа выполняла какой-либо код?

[Скандербег]

В форме обрабатывать сообщение от кнопки "Свернуть":

  TForm1 = class(TForm)
    procedure WMGetSysCommand(var message : TMessage); message WM_SYSCOMMAND;
  ...
  end;

...
procedure TForm1.WMGetSysCommand(var message: TMessage);
begin
  if (message.wParam = SC_MINIMIZE) then begin
    //какой-либо код
  end;
  inherited;
end;

[Пепел Феникса]

type
  TForm1 = class(TForm)
  private
    procedure WMSYSCOMMAND(var Mes:TMessage);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSYSCOMMAND;
begin
 case Mes.WParam of
  SC_MINIMIZE:Application.Title:='Свернуто';
 end;
 inherited;
end;

[Xcopy]

Пепел Феникса, выдает ошибку тут:

inherited;

[Пепел Феникса]

блин извиняюсь, вроде копировал норм...однако end не хватило почему то
исправил.

[Xcopy]

Наверное я неправильно применил( (пользуюсь 2010 делфи)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Buttons, ExtCtrls, StdCtrls, MPlayer;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
SpeedButton1: TSpeedButton;
Timer1: TTimer;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
TabSheet2: TTabSheet;
Edit3: TEdit;
SpeedButton4: TSpeedButton;
Memo1: TMemo;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
Label5: TLabel;
SpeedButton8: TSpeedButton;
GroupBox3: TGroupBox;
CheckBox1: TCheckBox;
SpeedButton9: TSpeedButton;
MediaPlayer1: TMediaPlayer;
GroupBox4: TGroupBox;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
GroupBox5: TGroupBox;
CheckBox2: TCheckBox;
SpeedButton13: TSpeedButton;
Timer2: TTimer;
Memo2: TMemo;
TrayIcon1: TTrayIcon;
SpeedButton14: TSpeedButton;
CheckBox3: TCheckBox;
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure TrayIcon1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure WMSYSCOMMAND(var Mes:TMessage);message WM_SYSCOMMAND;
{ Private declarations }
public
n:integer;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.WMSYSCOMMAND;
begin
case Mes.WParam of
SC_MINIMIZE:Application.Title:='Све рнуто';
inherited;
end;

[Xcopy]

Разобрался, спасибо raxp, Пепел Феникса.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор