MessageDlg?

отредактировано 04:30 Раздел: FastScript
При использовании MessageDlg() выводится сообщение об ошибке:
"Invalid variant type conversion." Как заставить работать?
Использую D6, FS1.9

Комментарии

  • отредактировано 04:30
    А можно реализацию этой функции в студию? Вроде бы в 1.9 эта функция не описана, надо самому...
  • отредактировано June 2006
    marvel написал:
    А можно реализацию этой функции в студию? Вроде бы в 1.9 эта функция не описана, надо самому...
    Реализация в модуле fs_idialogsrtti.pas:

    function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
    const MethodName: String; Caller: TfsMethodHelper): Variant;
    var
    s: String;
    b: TMsgDlgButtons;
    begin
    Result := 0;
    ...
    ...
    else if MethodName = 'MESSAGEDLG' then
    begin
    Word(PWordSet(@B)^) := Caller.Params[2];
    Result := MessageDlg(Caller.Params[0], Caller.Params[1], b, Caller.Params[3]);
    end
    end;
    Падает вот здесь:
    Word(PWordSet(@B)^) := Caller.Params[2];
  • отредактировано 04:30
    Не знаю, у себя проверил конструкция работает:
     
    MessageDlg('Hello', mtError, mbOK + mbCancel, 0);
    

    Как вызываешь функцию из скрипта???
  • отредактировано 04:30
    awex написал:
    Не знаю, у себя проверил конструкция работает:
     
    MessageDlg('Hello', mtError, mbOK + mbCancel, 0);
    

    Как вызываешь функцию из скрипта???
    ????!!!!!!????? Заработался я видимо... Вызов делал как в дельфе...
    MessageDlg('ФЫВА', mtInformation, [mbOk], 0)
    Очень смущен, извиняюсь, доку надо читать лучше...

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.