Scroll Bar у MessageBox!!!!

[Memfis1992]

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

[Пепел Феникса]

никак, стройте свою форму.

[Vikenty]

думаю можно SetWindowsLong'ом...
проще создавать окно на ВинАПИ!

[Пепел Феникса]

ага, из другого потока, очень мудро(ибо MessageBox блокирует поток)

[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[i] is TImage) then
      begin
        dlgImage:= TImage(aMsgDlg.Components[i]);
        aScrollBox.Left:= dlgImage.BoundsRect.Right + 4;
      end;
      if (aMsgDlg.Components[i] is TLabel) then
      begin
        dlgLabel:= TLabel(aMsgDlg.Components[i]);
        dlgLabel.Parent:= aScrollBox;
        dlgLabel.Left:= 0;
        aScrollBox.Width:= dlgLabel.Width + 24;
      end;
      if (aMsgDlg.Components[i] is TButton) then
      begin
        dlgButton:= TButton(aMsgDlg.Components[i]);
        dlgButton.Top:= aScrollBox.BoundsRect.Bottom + 24;
      end;
    end;
    Result:= aMsgDlg.ShowModal;
  end;
end;