Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Июл

ScrollBar у MessageBox

Posted by obzor under Delphi

Есть ли какой нить будь способ сделать на MessageBox’e полосы прокрутки? Просто у меня получается слишком большой мессадж бокс что всего его содержимого не прочитать без таких полос прокрутки. Можно ли их туда как нить поставить?

batonn

Код:

//MessageDialog with ScrollBox
function MessageDlgScroll(const Msg: String; DlgType: TMsgDlgType;
                          Buttons: TMsgDlgButtons;
                          MaxHeight: Integer): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  dlgLabel: TLabel;
  dlgImage: TImage;
  aScrollBox: TScrollBox;
begin
  Result:= mrNone;
  begin
    aMsgDlg:= CreateMessageDialog(Msg, DlgType, Buttons);
    if aMsgDlg.Height > MaxHeight then aMsgDlg.Height:= MaxHeight;
    aScrollBox:= TScrollBox.Create(aMsgDlg);
    with aScrollBox do
    begin
      Height:= aMsgDlg.Height - 100;
      BorderStyle:= bsNone;
      Parent:= aMsgDlg;
    end;
    for i:= 0 to aMsgDlg.ComponentCount - 1 do
    begin
      if (aMsgDlg.Components is TImage) then
      begin
        dlgImage:= TImage(aMsgDlg.Components);
        aScrollBox.Left:= dlgImage.BoundsRect.Right + 4;
      end;
      if (aMsgDlg.Components is TLabel) then
      begin
        dlgLabel:= TLabel(aMsgDlg.Components);
        dlgLabel.Parent:= aScrollBox;
        dlgLabel.Left:= 0;
        aScrollBox.Width:= dlgLabel.Width + 24;
      end;
      if (aMsgDlg.Components is TButton) then
      begin
        dlgButton:= TButton(aMsgDlg.Components);
        dlgButton.Top:= aScrollBox.BoundsRect.Bottom + 24;
      end;
    end;
    Result:= aMsgDlg.ShowModal;
  end;
end;