FastReport - Felder per Script hinzufügen

[Lemmy]

ist es echt so schwer 5 Zeilen Code zu kopieren?? (Ok 6 Zeilen )

Delphi-Quellcode:

var
memoBaujahr : TfrxMemoView;
begin
  memoBaujahr := TfrxMemoView.Create(Masterdata1); // Masterdata1 ist mit dem entsprechenden Dataset verbunden!
  memoBaujahr.Text := '[frxUserDataSet1."Name"]';
  memoBaujahr.left := 10;
  memoBaujahr.top := 10;
  memoBaujahr.Width := 200;
  memoBaujahr.Height := 20;                                          
                                  

  memoBaujahr := TfrxMemoView.Create(Masterdata1); // Masterdata1 ist mit dem entsprechenden Dataset verbunden!
  memoBaujahr.DataSet := memo1.Dataset;
  memoBaujahr.DataField := 'Vorname';                                                  
  memoBaujahr.left := 210;
  memoBaujahr.top := 10;
  memoBaujahr.Width := 200;
  memoBaujahr.Height := 20;

funktioniert bei mir wunderbar... Den Unterschied zu deinem Code darfst Du selbst suchen

[fillibuster]

Hallo Lemmy,

also der folgende Code funktioniert in dem Event ReportOnReport print auch nicht:

Delphi-Quellcode:

procedure frxReportOnReportPrint(Sender: TfrxComponent);
var
memoBaujahr : TfrxMemoView;          
begin
  memoBaujahr := TfrxMemoView.Create(Masterdata1); // Masterdata1 ist mit dem entsprechenden Dataset verbunden!
  memoBaujahr.Text := '[referenceDataset."Baujahr"]';
  memoBaujahr.left := 10;
  memoBaujahr.top := 10;
  memoBaujahr.Width := 200;
  memoBaujahr.Height := 20; 
                                  

  memoBaujahr := TfrxMemoView.Create(Masterdata1); // Masterdata1 ist mit dem entsprechenden Dataset verbunden!
  memoBaujahr.DataSet := Masterdata1.Dataset;
  memoBaujahr.DataField := 'Projektnummer'; 
  memoBaujahr.left := 210;
  memoBaujahr.top := 10;
  memoBaujahr.Width := 200;
  memoBaujahr.Height := 20;
end;
begin
end.

Wenn ich ihn aber direkt zwischen begin und end. setze ist alles gut. Da war der Fehler. Danke

[Lemmy]

sorry vertippt... OnBeforPrint der Page! da sollte das funktionieren!

[fillibuster]

jau klappt