VPF::MessageDlg c дополнительным чекбоксом

Alexeis

Дата 20.5.2008, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Может быть я плохо искал, но в DRKB ненашёл, и думаю было бы полезно добавить. Код MessageDlg с чекбоксом внизу (к примеры галка "Непоказывать больше это окно"). Функция разработана не мной, я просто портировал код C++, который нашёл на http://raz-soft.com/c-builder/message-box-with-check-box/. По этой-же ссылочке есть и скриншот как это окошко выглядит.

Код


function CheckMessageDlg(const Msg, Caption, CheckBoxCaption: string;
  var Checked: boolean; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons{;
  DefaultButton: TMsgDlgBtn}): TModalResult;
var
  Dialog: TForm;
  LeftEdge, TopEdge: Integer;
  i: Integer;
  Ctrl: TControl;
  CheckBox: TCheckBox;
begin
  Dialog:= CreateMessageDialog(Msg, DlgType, Buttons{, DefaultButton});

  if not (Caption = '') then
    Dialog.Caption:= Caption;

  LeftEdge:= Dialog.ClientWidth;
  TopEdge:= Dialog.ClientHeight;
  if Dialog.ControlCount > 0 then
    for i := 1 to Dialog.ControlCount - 1 do
    begin
      Ctrl:= Dialog.Controls[i];
      if Ctrl.Left < LeftEdge then LeftEdge:= Ctrl.Left;
      if Ctrl.Top < TopEdge then TopEdge:= Ctrl.Top;
    end
  else
  begin
    LeftEdge:= 10;
    TopEdge:= 10;
  end;

  CheckBox:= TCheckBox.Create(Dialog);
  with CheckBox do
  begin
    Parent:= Dialog;
    Caption:= CheckBoxCaption;
    Checked:= Checked;
    Left:= LeftEdge;
    Top:= Dialog.ClientHeight;
    Width:= Dialog.Canvas.TextWidth(CheckBox.Caption) + 30;
  end;

  Dialog.ClientHeight:= Dialog.ClientHeight + CheckBox.Height + TopEdge;

  if (CheckBox.Width + LeftEdge * 2) > Dialog.ClientWidth then
    Dialog.ClientWidth:= CheckBox.Width + LeftEdge * 2;

  Result:= Dialog.ShowModal;
  Checked:= CheckBox.Checked;

  Dialog.Free;
end;

Автор: mrB1n Источник: Vingrad

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »