MessageDlg?

Комментарии

• marvel

  June 2006 отредактировано 05:55

  А можно реализацию этой функции в студию? Вроде бы в 1.9 эта функция не описана, надо самому...
• karton

  June 2006 отредактировано 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];
• awex

  June 2006 отредактировано 05:55

  Не знаю, у себя проверил конструкция работает:

   
  MessageDlg('Hello', mtError, mbOK + mbCancel, 0);
  

  
  Как вызываешь функцию из скрипта???
• karton

  June 2006 отредактировано 05:55

  awex написал:

  Не знаю, у себя проверил конструкция работает:

   
  MessageDlg('Hello', mtError, mbOK + mbCancel, 0);
  

  
  Как вызываешь функцию из скрипта???

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