Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
ВнизЗакрытие формы Найти похожие ветки
← →
r.o.o.t © (2007-10-09 13:01) [0]Господа подскажите как сделать, чтобы при нажати правой верхней кнопки Х на главной форме приложения, приложение не закрывалось а
главная форма сворачивалась?
дайте код плиз:??
← →
Desdechado © (2007-10-09 13:03) [1]FormClose
Action:=caHide;
← →
Маша Шрайбер (2007-10-09 13:03) [2]Удалено модератором
Примечание: Offtopic
← →
clickmaker © (2007-10-09 13:04) [3]OnClose - TCloseAction
← →
Leonid Troyanovsky © (2007-10-09 14:35) [4]
> Desdechado © (09.10.07 13:03) [1]
> FormClose
> clickmaker © (09.10.07 13:04) [3]
> OnClose - TCloseAction
& WM_QUERYENDSESSION processing
--
Regards, LVT.
← →
r.o.o.t © (2007-10-09 15:07) [5]FormClose
Action:=caHide;
приложение закрывается как сделать
чтоб незакрывалось??
← →
Leonid Troyanovsky © (2007-10-09 15:19) [6]
> r.o.o.t © (09.10.07 15:07) [5]
> приложение закрывается как сделать
http://www.rsdn.ru/Forum/?mid=897503
Добавь в WndProc обработку WM_QUERYENDSESSION
--
Regards, LVT.
← →
TSNamir@mail.ru (2007-10-09 15:21) [7]type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_CLOSE:
Message.CmdType := SC_MINIMIZE ;
end;
inherited;
end;
end.
← →
Dib@zol © (2007-10-09 15:23) [8]type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure SysCmd(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SysCmd(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_CLOSE then begin
Application.Minimize;
Msg.Result:=1;
end;
end;
← →
Dib@zol © (2007-10-09 15:24) [9]Плин, не успел :)
← →
TSNamir@mail.ru (2007-10-09 15:26) [10]Гы :-) Я первый :-)
← →
r.o.o.t © (2007-10-09 15:40) [11]ггы спасибо
← →
r.o.o.t © (2007-10-09 15:53) [12]блин а неработает..........
← →
Dib@zol © (2007-10-09 15:54) [13]Что именно?
← →
r.o.o.t © (2007-10-09 16:07) [14]приложение всеравно закрывается
а нужно чтоб сворачивалось
← →
Sairex © (2007-10-09 16:18) [15]FormClose(Sender:TObject; Action:TCloseAction);
Begin
Form.WindowState:=wm_minimized;
Action:=caNone;
End;
Насчет Form.WindowState:=wm_minimized; я в правильности написания не уверен.
← →
clickmaker © (2007-10-09 16:24) [16]procedure OnWMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TForm1.OnWMSysCommand(var Msg: TMessage);
begin
if (Msg.WParam = SC_CLOSE) then begin
Application.Minimize;
Msg.Result := 1;
end;
end;
← →
ASoft (2007-10-09 17:11) [17]в FormCloseQuery():
// например, при нужном условии
begin
CanClose:=False;
self.WindowState:=wsMinimized //или Application.Minimize;
end;
← →
TSNamir@mail.ru (2007-10-10 08:45) [18]Если не работает, значит руки не оттуда ростут
← →
LENIN_INC (2007-10-10 13:23) [19]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.065 c