Вопрос Как привязать функцию при нажатии на крестик

[Mrman]

Всем Доброго Времени! Собственно такой вопрос как зделать чтобы при нажатии на крестик Выполнялась новая процедура (напр: открывалась новая форма отмены ) но в тоже время не было сообщения об отмене а просто выходила новая форма

 

[Shegorat]

Mrman
Всё есть в FAQ

 

[Mrman]

Mrman
Всё есть в FAQ

тот пример который там есть мне неподходит мне надо либо привязать свою функцию к крестику либо вовсе его скрывать

 

[Shegorat]

тот пример который там есть мне неподходит мне надо либо привязать свою функцию к крестику либо вовсе его скрывать

Вы бы для начала посмотрели и проверили код, перед тем как так категорично его отвергать.
Функция подменяет форму отмены на свою, вне зависимости от того, каким стандартным методом закрывается форма.

 

[Mrman]

Вы бы для начала посмотрели и проверили код, перед тем как так категорично его отвергать.
Функция подменяет форму отмены на свою, вне зависимости от того, каким стандартным методом закрывается форма.

в том то и дело что в мой код она не подходит,вроде зделал все правильно но вместо показа моей формы закрывается вся форма установшика

Мой код

Спойлер

procedure YesButtonClick(Sender: TObject);
begin

ISDoneCancel:=1
ExitPanel.Hide;
WizardForm.Close;
end;

procedure CancelClick(Sender: TObject);
begin

ExitPanel.Show;
end;

procedure NoButtonClick(Sender: TObject);
begin

ExitPanel.Hide;
end;

procedure Hidec();
begin
WizardForm.CancelButton.SetBounds(0,0,0,0);
end;
procedure InitializeWizard();
begin
ExitPanel := TPanel.Create(WizardForm);
with ExitPanel do
begin
Parent := WizardForm;
SetBounds(0,0,584,411);
BevelOuter := bvNone;
ParentBackground := false;
end;

Text57 := TNewStaticText.Create(WizardForm);
with Text57 do
begin
Parent := ExitPanel;
AutoSize := true;
WordWrap := True;
font.color:=clblack;
Caption := 'Вы уверены, что хотите отменить распаковку?';
ShowAccelChar := False;
Left := ScaleX(30);
Top := ScaleY(28);
Height := ScaleY(15);
Width := ScaleX(620);
end;

Text58:= TNewStaticText.Create(WizardForm);
with Text58 do
begin
Parent := ExitPanel;
AutoSize := true;
WordWrap := True;
font.Size:=13;
font.color:=clblack;
Font.Style:=[fsBold];
font.color:=clblack;
Caption := 'Отмена распаковки';
ShowAccelChar := False;
Left := ScaleX(14);
Top := ScaleY(5);
Height := ScaleY(23);
Width := ScaleX(620);
end;
Text59:= TNewStaticText.Create(WizardForm);
with Text59 do
begin
AutoSize := true;
WordWrap := True;
ShowAccelChar := False;
Left := ScaleX(110);
Top := ScaleY(340);
Height := ScaleY(15);
Width := ScaleX(620);
caption:='Нажмите «Да», чтобы отменить распаковку, «Нет», чтобы продолжить.';
parent:=ExitPanel;
end;
exitlabel:=TLabel.Create(WizardForm);
With exitlabel do begin
end;
ExtractTemporaryFile('Question_Icon.ico');
Ico:= TNewIconImage.Create(ExitPanel);
with Ico do begin
Parent:= ExitPanel;
AutoSize:= True;
Icon.LoadFromFile(ExpandConstant('{tmp}\Question_Icon.ico'));
SetBounds(232,150,32,32);
BackColor := clNone;
end;
exitlabel2:=TLabel.Create(WizardForm);
With exitlabel2 do begin
Parent := ExitPanel;
SetBounds(90,200,395,200);
Alignment:=taCenter;
AutoSize := False;
Caption := 'Выход'
font.color:=clblack;
end;
YesButton := TButton.Create(WizardForm);
with YesButton do
begin
Parent := ExitPanel;
Left := ScaleX(342);
Top := ScaleY(372);
Width := ScaleX(115);
Height := ScaleY(31);
OnClick := @YesButtonClick;
Caption := 'да';
end;
NoButton := TButton.Create(WizardForm);
with NoButton do
begin
Parent := ExitPanel;
Left := ScaleX(463);
Top := ScaleY(372);
Width := ScaleX(115);
Height := ScaleY(31);
OnClick := @NoButtonClick;
Caption := 'нет';
end;