Minimize OnClose

← →
Minimize OnClose (2004-01-20 14:28) [0]

Помогите пожалуйста минимизировать приложение при нажатии на "Х"...

← →
MBo © (2004-01-20 14:34) [1]

Параметр Action в хелпе

← →
TUser © (2004-01-20 14:35) [2]

Если этот Х живет на неглавной форме - тогда минимизируй при дестрое этой неглавной формы. А если он живет на главной форме - тогда выхода 2 (наверное больше, конечно). Можно сделать эту форму неглавной, а главной формой объявить, скажем логотипчик, который показывается при запуске приложения. А лучше так - убрать из главной формы этот Х (borderIcons = []), кинуть туды компонент jvCaptionIcon, нарисовать ему нужный тебе глиф (скажем, идентичный стандартному иксу - а, по-моему, там стандартно есть такой, точно не помню) и обработать соотвествующим образом нажатие на этот глиф.

← →
TUser © (2004-01-20 14:36) [3]

Кажись я намудрил. :))

← →
stone © (2004-01-20 14:38) [4]

procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caMinimize;
end;

← →
Плохиш_ (2004-01-20 14:42) [5]

>stone © (20.01.04 14:38) [4]

При нажатии на "X" OnClose не вызывается

procedure TForm.FormCloseQuery(...);
begin
CanClose := false;
ShowWindow(Application.Handle, SW_MINIMIZE);
end;

Предвижу следующий вопрос: программа не дает Windows нормально завершить свою работу...

← →
Плохиш_ (2004-01-20 15:23) [7]

Наверное с главной формой еще не экспериментировал...

Minimize OnClose Найти похожие ветки