[L1nk3R]

Где посмотреть? Тихое удаление не нужно. Причём тут тихое удаление?
Надо чтоб например рядом с кнопкой [Обзор] была такая кнопочка со стрелочкой при нажатии на которую выпадала форма как контекстное меню. Только чтоб находилась рядом с кнопкой (под кнопкой), чтоб нельзя было двигать и не было крестика закрыть. Кликнул - Открылась, кликнул ещё раз или на основную форму или даже на рабочем столе, то она сама закрылась.

Почти так

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Icons]
Name: "{group}\My Application"; Filename: "{app}\MyProg.exe"

[*Code]
var
  Button: TNewButton;

procedure Button1Click(Sender: TObject); forward;

function CreateForm: Integer;
begin
  with CreateCustomForm do
  begin
    ClientWidth := ScaleX(256);
    ClientHeight := ScaleY(256);
    Position := poScreenCenter;
    ShowModal;
    Free;
  end;
end;

procedure Button1Click(Sender: TObject);
begin
  CreateForm;
end;

procedure RedesignWizardForm;
begin
  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(310);
  end;

  with WizardForm.DirEdit do
  begin
    Width := ScaleX(300);
  end;
  
  Button := TNewButton.Create(WizardForm);
  with Button do
  begin
    Name := 'Button';
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(384);
    Top := ScaleY(67);
    Width := ScaleX(27);
    Height := ScaleY(23);
    Caption := '..';
    OnClick := @Button1Click;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

но не так.
Даже не знаю как объяснить.