Блог

Я использую Delphi7 под Windows XP. Как бы мне добавить всплывающую кнопку «Удалить» в компонент Delphi TOpenPictureDialog? Есть ли какой-либо способ запустить диалоговое окно в конструктор, чтобы добавить кнопку и ее поведение?

вы можете добавить новую кнопку в TOpenPictureDialog , но не помещая диалоговое окно в конструктор, вы должны сделать это во время выполнения.

проверьте этот пример

 procedure TForm1.FormCreate(Sender: TObject);
var
  FDeleteButton   : TSpeedButton;
  FPreviewButton  : TSpeedButton;
begin
    FPreviewButton := TSpeedButton(OpenPictureDialog1.FindComponent('PreviewButton'));
    FDeleteButton  := TSpeedButton.Create(OpenPictureDialog1);
    FDeleteButton.SetBounds(107, 1, 23, 22);
    FDeleteButton.Parent    := FPreviewButton.Parent;
    FDeleteButton.NumGlyphs:=2;        
    FDeleteButton.Glyph.LoadFromResourceName(HInstance, 'BBABORT');
    FDeleteButton.Name    := 'DeleteButton';
    FDeleteButton.OnClick := DeleteBtnClick;
end;

procedure TForm1.DeleteBtnClick(Sender: TObject);
begin
   //here you must implement the delete logic 
   ShowMessage('Hello from delete button');
end;
  

и результатом является

Вы можете написать свой «собственный» OpenDialog и унаследовать этот новый класс от TOpenPictureDialog. Существует (старый) бесплатный компонент с именем «PBOpenPreviewDialog», который делает именно это (из TOpenDialog), может быть, вы можете взять этот компонент в качестве примера?

Вы можете найти веб-страницу по адресу:http://bak-o-soft.dk/Delphi/PBFolderDialog.aspx
И ссылка для скачивания компонента здесь:http://bak-o-soft.dk/Download.asgx.ashx/Delphi/PBFolderDialog.zip