FastReport处理点击字段

Question

问题是如何处理字段上的单击并从主程序调用该过程。

Answer 1

是的。我不知道您对该字段的含义以及您使用的 FastReport 版本是什么，但我将尝试向您展示与报表对象交互的原理（这可以对预览中的任何报表对象进行）窗户）。但是，TfrxReport.OnClickObject 事件因 FastReport 版本而异，因此根据您使用的版本，该事件可能会略有不同。

下面的例子（用4.12版本编写）与Memo1交互，设计时放在报表frxReport1上的Text对象(TfrxMemoView)是什么。您需要做的其余工作是在主窗体中编写 OnClickObject 事件处理程序的代码。

procedure TForm1.frxReport1ClickObject(Sender: TfrxView;
  Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
begin
  // comparing names is not so efficient, so for many controls I would use
  // rather Sender.Tag and set the Tag property at report design time and
  // use case Sender.Tag of construction

  if Sender.Name = 'Memo1' then // is the Sender my Memo1 text object ?
  begin
    if fsBold in (Sender as TfrxMemoView).Font.Style then // is Memo1 font bold ?
    begin
      (Sender as TfrxMemoView).Font.Style := []; // then set it to default
      ShowMessage('You just set memo text font to default'); // display message
    end
    else
    begin
      (Sender as TfrxMemoView).Font.Style := [fsBold]; // else set it to bold
      ShowMessage('You just emphased your memo text font'); // display message
    end;

    Modified := True; // setting Modified to True causes the report to refresh
  end;
end;

Answer 2

如果您需要输入其他文本，请尝试一个选项：

(Sender as TfrxMemoView).Text := 'Hi friend';

或：

TfrxMemoView(Sender).Text := 'Hi friend';