А как закрывая окно крестиком выполнить что-нибудь?

← →
Arturchik (2004-04-04 00:40) [0]

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

← →
Zacho © (2004-04-04 00:41) [1]

OnCloseQuery

← →
Diamond Cat © (2004-04-04 00:54) [2]

> Zacho © (04.04.04 00:41) [1]
> OnCloseQuery
забавно

form1.onclose

← →
Arturchik © (2004-04-04 01:01) [3]

Спасибо

← →
Zacho © (2004-04-04 01:04) [4]

> Diamond Cat © (04.04.04 00:54) [2]

Не всегда сработает. Универсально - именно OnCloseQuery

← →
Diamond Cat © (2004-04-04 01:08) [5]

> Не всегда сработает.
ну на терминейт не сработает
OnCloseQuery - Occurs when the Close method is called or when the user chooses Close from the form"s System menu.

Use OnClose to perform special processing when the form closes. The OnClose event specifies which event handler to call when a form is about to close. The handler specified by OnClose might, for example, test to make sure all fields in a data-entry form have valid contents before allowing the form to close.

A form is closed by the Close method or when the user chooses Close from the form"s system menu.

← →
Zacho © (2004-04-04 01:10) [6]

> Diamond Cat © (04.04.04 01:08) [5]
>
> > Не всегда сработает.
> ну на терминейт не сработает

Не только.
И просто любопытно, а что забавного ?

← →
Diamond Cat © (2004-04-04 01:24) [7]

> Zacho ©

по поводу "забавно" просто ошибся, не то выделил, а забавно, что человеки пытаются чего-то напмсать не зная элементарных вещей

← →
Андрей Сенченко © (2004-04-04 11:38) [8]

Diamond Cat © (04.04.04 01:24) [7]

Вот просто интересно ... Событие OnCloseQuery стало для Вас элементарным до Вашего "Hello World !" или всё-таки после ? Или Вы родились с врожденным опытом программирования распределенных баз данных ?

Завидую.

← →
Diamond Cat © (2004-04-04 13:34) [9]

> Андрей Сенченко ©

методы объектов стали для меня первым что я узнал, программу Hellow word вообще не писал, и вообще че пристал-то яж никого ногами не пинал.

← →
Андрей Сенченко © (2004-04-04 14:08) [10]

Понимаешь, в те времена когда я писал свой HelloWorld ( кстати полезная штука ), понятия "объект" еще не существовало - оно появилось примерно пятью годами поздже. Посему и усмотрел не то чтобы пинание ногами, но эдакий широкий замах на это дело :)

← →
555ААА555 (2004-04-04 14:55) [11]

OnCloseQuery опмоему обрабатывается системой а
OnClose прогой

Запусти

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
showmessage ("uuuuuuuu");
end;

end.

← →
555ААА555 (2004-04-04 15:15) [13]

И что???? добавь CanClose:=False

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
showmessage ("uuuuuuuu");
CanClose:=False;
end;

Добавлю. Обработается. Форма не закроется.
А как это сочетается с

555ААА555 (04.04.04 14:55) [11]
OnCloseQuery опмоему обрабатывается системой

?

А как закрывая окно крестиком выполнить что-нибудь? Найти похожие ветки