Report Komponente zur Laufzeit hinzufügen

Christoph Englmann · Beiträge: 276

hallo,

möchte aus einer form (FormAusgabe) heraus eine andere form (frmDruckausgabe) mit nem quickreport (Quickrep1) darauf starten und dabei aus der ersten form zur laufzeit auf dem report z.B. ein label erzeugen...

code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFormAusgabe.cmdDruckenClick(Sender: TObject);
var
  Ueberschrift :TQRLabel;

begin
  frmDruckausgabe := TfrmDruckausgabe.create(self);
  
  Ueberschrift := frmDruckausgabe.Quickrep1.TQRLabel.create(self);

end;

danke
christoph

Moderiert von Tino: Titel geändert.

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

hallo,
und was ist deine frage? naja
wenn ich mir deinen source aber ansehe, habe ich ein ne frage:
hast du das form das du hier "createst" schon zur designtime zusammengebaut und möchstest nur noch die labels (ein label?) zur laufzeit erstellen?

abgesehen davon, du must deinen objekten schon noch ein paar infos geben, sie existieren zwar, aber sie wissen noch nichts über sich. (quasi n mensch ohne hirn)
du must ihnen erst noch von hand sagen wer sie sind, zu wem sie gehören, und wo sie hin sollen.

bei allen objekten muss man zumindest folgende dinge mit übergeben:

markieren

Delphi-Quelltext

1:
2:
3:
4:

object := TObject.Create(self);
object.parent := einformular;
object.name := einname;
object.SetBounds(links,oben,breite,höhe);

jetzt verfügt dein objekt über ein grundwissen. weitere, objektspezielle dinge kannst du dann jetzt nach belieben hinzufügen.
wichtig ist, dass man zum schluss das objekt aber wieder mit

markieren

Delphi-Quelltext

1:	objekt.free;

wieder freigibt, damit es nicht ewig im speicher hängen bleibt
(merke: wo ein create da auch ein free

)

weitere infos findet man im forum auf vielen, vielen seiten, wenn man nach Suche in: Delphi-Forum, Delphi-Library

LAUFZEIT ERSTELLEN sucht.

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

Christoph Englmann · Beiträge: 276

hallo,

erstmal danke für die antwort... (meine Frage (anscheinend hab ich die beim posten irgendwie raus gelöscht))...

also:
die form hab ich schon zur designtime zusammengabaut (mit Quickrep1 drauf)
und ich möchte eigentlich nur zur laufzeit ein label drauf erstellen...

danke für jeden hinweis

christoph

Christoph Englmann · Beiträge: 276

hallo, bin selbst drauf gekommen....

es muss natürlich so heissen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  
procedure TFormAusgabe.cmdDruckenClick(Sender: TObject);
var
  Ueberschrift :TQRLabel;

begin
  frmDruckausgabe := TfrmDruckausgabe.create(self);
  
  Ueberschrift := TQRLabel.create(frmDruckausgabe.Quickrep1);

end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme