Ошибка при закрытии программы

[cargo29]

Написал программу, но при закрытии выскакивает ошибка (на скрине)
где 1111111111111 там при закрытии

form4.close;

form4 основная форма, 222222222 после нажатия continue

Код самой программы (основной формы)

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw, XPMan, ShellAnimations,
  IdCookieManager, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ShellAPI, Menus, ImgList,
  GIFImg;

type
  TForm4 = class(TForm)
    Image1: TImage;
    WebBrowser1: TWebBrowser;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    IdCookieManager1: TIdCookieManager;
    TrayIcon1: TTrayIcon;
    ShellResources1: TShellResources;
    XPManifest1: TXPManifest;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    ImageList1: TImageList;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrayIcon1DblClick(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://pogoda.gb7.ru/');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
Application.ProcessMessages;
form1.Button1.Click;
sleep(100);
WebBrowser1.Refresh;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://tobolsk.clan.su/', nil, nil, SW_SHOWNORMAL);
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.close;
form1.Close;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://pogoda.gb7.ru/');
end;

procedure TForm4.N10Click(Sender: TObject);
begin
form4.Close;
end;

procedure TForm4.N1Click(Sender: TObject);
begin
Button3.Click;
end;

procedure TForm4.N3Click(Sender: TObject);
begin
show;
end;

procedure TForm4.N4Click(Sender: TObject);
begin
hide;
end;

procedure TForm4.N6Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://tobolsk.clan.su/', nil,nil, SW_SHOWNORMAL);
end;

procedure TForm4.N8Click(Sender: TObject);
begin
Button2.Click;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
form4.Caption:='Погода в Тобольске 2011 ver. 1.1   '+timetostr(gettime);
Label1.Caption:=DateToStr(date);
Label2.Caption:=TimeToStr(gettime);
end;

procedure TForm4.TrayIcon1DblClick(Sender: TObject);
begin
if Visible=true then
hide
else
Show;
end;

procedure TForm4.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
hide
else
inherited;
end;

end.

[Winnerer]

else
inherited;

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

[offtop]

ver. 1.1

что-то не похоже

if Visible=true then
hide
else
Show;

фокус

visible:=not visible;

Оформление кода - ужас [/offtop]

[GunSmoker]

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.close;

Что, по-вашему, это делает?

[ZvEr_HaCkEr]

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

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.close;

Что, по-вашему, это делает?

Убило!

[art-programs]

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.close;
form1.Close;
end;

так программа реально лучше закрывается )))
особенно с учётом того что form4 - главная форма)))

[Человек_Борща]

Ошибка у ТС вот где:

procedure TForm4.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
hide
else
inherited;
end;

Тут 2 ошибки:
1.
Зачем else?
Вы сами хотите обработать команду и передать сообщение далее по цепочке сообщений?

Программа зависает в этом куске кода т.к. получает WM_SYSCOMMAND, но так как там нет вызова inherited ни обработки SC_CLOSE,SC_MINIMIZE и.т.д, то ожидает у моря погоды.. ой того что программист сам обработает эти собщения сам.

Вызов inherited; обязателен в случае если вы сами не обработываете все эти сообщения. Иначе программа повиснет в этом куске кода, в случае если не найдет обработки посланного окну сообщения.

2.
Второе это надо смотреть не CmdType, а wParam.

Вот как должно все вылядеть:

procedure TForm4.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.wParam = SC_MINIMIZE then
     begin
        hide;
     end;
   inherited;
end;

[cargo29]

Сообщение от Человек_Борща

Ошибка у ТС вот где:

procedure TForm4.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
hide
else
inherited;
end;

Тут 2 ошибки:
1.
Зачем else?
Вы сами хотите обработать команду и передать сообщение далее по цепочке сообщений?

Программа зависает в этом куске кода т.к. получает WM_SYSCOMMAND, но так как там нет вызова inherited ни обработки SC_CLOSE,SC_MINIMIZE и.т.д, то ожидает у моря погоды.. ой того что программист сам обработает эти собщения сам.

Вызов inherited; обязателен в случае если вы сами не обработываете все эти сообщения. Иначе программа повиснет в этом куске кода, в случае если не найдет обработки посланного окну сообщения.

2.
Второе это надо смотреть не CmdType, а wParam.

Вот как должно все вылядеть:

procedure TForm4.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.wParam = SC_MINIMIZE then
     begin
        hide;
     end;
   inherited;
end;

На счет этого спасибо учту, но оно работает всегда )))

и повторяю для остальных ПРИ ЗАКРЫТИИ!!!!!!!!!!!!!!! ОСТАЛЬНОЕ РАБОТАЕТ!!!!!!!!!!!!
ДАЖЕ ЭТО!

if Visible=true then
hide
else
Show;

Тема закрыта, ошибку нашел сам!
перенес закрытие форм в событие где уничтожается форма.

[GunSmoker]

(FACEPALM)

1.
Зачем else?
Вы сами хотите обработать команду и передать сообщение далее по цепочке сообщений?

Программа зависает в этом куске кода т.к. получает WM_SYSCOMMAND, но так как там нет вызова inherited ни обработки SC_CLOSE,SC_MINIMIZE и.т.д, то ожидает у моря погоды.. ой того что программист сам обработает эти собщения сам.

Вызов inherited; обязателен в случае если вы сами не обработываете все эти сообщения. Иначе программа повиснет в этом куске кода, в случае если не найдет обработки посланного окну сообщения.

2.
Второе это надо смотреть не CmdType, а wParam.

Ты написал полный бред с ошибкой в каждом втором предложении.

[Valio]

Давайте по порядку: что автор хотел написать то?

Ибо в коде что-то нереальное написано.

Особено радуют некоторые моменты )

procedure TForm4.N1Click(Sender: TObject);
begin
Button3.Click;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.close;

sleep(100);

Ну и конечно же весь этот, не побаюсь этого слова, функционал, обеспечивает куча стороних модулей, назначение которых мне неизвестно xD

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw, XPMan, ShellAnimations,
  IdCookieManager, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ShellAPI, Menus, ImgList,
  GIFImg;

[GunSmoker]

Автор вообще-то уже разобрался:

Тема закрыта, ошибку нашел сам!
перенес закрытие форм в событие где уничтожается форма.

Правда, неизвестно, чего он там наворотил...