Скачать: CL | DM;

Как послать сообщение форме из скрипта FastReport   Найти похожие ветки 

← →
tytus   (2008-03-24 12:58) [0]

Добрый день всем.
Собственно вот такой вот вопрос.
В переменную FFmID записываю хендл формы:

frxReport1.Variables["FFmID"]:=NewPCMDTestDnFm.Handle;
Вот код скрипта :
uses "Windows.pas";
 
const
 CX_CALLTYPE=WM_USER+60;
   
procedure Memo21OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
 Modified:=false;
 PostMessage(Get("FFmID"),CX_CALLTYPE,0,StrToInt(TfrxMemoView(Sender).Text));                                                                                                      
end;

begin

end.

ругается <"BEGIN" Expected
как правильно сие написать?

---

← →
Сергей М. ©   (2008-03-24 13:25) [1]

> uses "Windows.pas";


Юниты, перечисленные в uses, должны соответствовать правилам PascalScript-интерпретатора. Совершенно очевидно, что Windows.pas им не соответствует.

---

← →
tytus   (2008-03-24 14:16) [2]

>Сергей М. ©   (24.03.08 13:25) [1]
ОК, это дело я уже отбросил.
В юните формы написал процедуру с одним ShowMessage("xxx"), описал ее в
public, и переписал скрипт. Все равно одна и та-же ошибка.

uses "PCMDTestDN_Unit.pas";
 
procedure Memo21OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
 Modified:=false;
 PCMDTestDnFm.ShowCallType(TfrxMemoView(Sender).Text);                                                                                                      
end;

begin

end.

как быть теперь?

---

← →
Сергей М. ©   (2008-03-24 14:24) [3]

> как быть теперь?


А точно так же - твой PCMDTestDN_Unit.pas не является юнитом, корректным с т.з. PascalScript.

---

← →
tytus   (2008-03-24 14:34) [4]

>Сергей М. ©
Спасибо. Значит не судьба...
Мне вообщето нужно было всего-то по щелчку на MemoView отобразить мессаг с текстом, в зависимости от значения самого мемовью. Не хотелось писать оператор case в самом скрипте....
Во первых - вариантов может быть много, а во-вторых - варианты могут поменяться. Тоесть значению "1" - соотв. один текст. "2" - другой... Эти значения я храню в БД (Oracle) и удобнее изменить таблицу в базе, чем саму прогу, и потом снова раздавать юзерам. (хотя я и апдейт сделал). А пользователям внапряг каждый раз обновлять прогу (особенно если пользователь - лицо начальствующее -)

---

← →
Сергей М. ©   (2008-03-24 15:01) [5]

> tytus   (24.03.08 14:34) [4]


> не судьба


Ну почему не судьба ?
Насколько мне помнится, PS позволяет декларировать и осуществлять вызовы экспортируемых другими PE-модулями ф-ций, в частности WinAPI. Просто надо повнимательней изучить док-цию.

---

← →
tytus   (2008-03-24 18:53) [6]

>Сергей М. ©   (24.03.08 15:01) [5]
Огромнейшее спасибо!
Подтолкнули на путь истинный.
Прочитал доку "FastReport - Руководство разработчика".
Оказывается у FastReport-a есть метод frxReport1UserFunction!!!
Написал свою процедуру Procedure xxx(AValue:string);
Добавил ее:
frxReport1.AddFunction("Procedure xxx(AValue:string)");

Ну а далее - дело техники...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c