Quickreport- !?!

[poterp]

hallo,
ich habe zwei Formen, Form1 ist mein Hauptform, Form2 ist mein Quickreport bestückung. bestimmte Information sollen von Form1 kommen, ich habe sowas geschrieben:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
if combobox1.ItemIndex > -1 then
begin
Form1.ComboBox1.ItemIndex:= frm_preview.QRRichText1.GetTextLen;
end;
frm_preview.QuickRep1.Preview;
end;

aber es passiert nix. ich muss zu geben, dass ich kein erfahrung damit habe
hat jemand eine idee?
grüß
poter

[mkinzler]

Was hast du den vor?

[poterp]

Auf die Form2(Frm_preview) liegt mein QuickRep1. die Informationen, wie Kundename, kommentare etc.. sollen von der Form1 kommen. Z.B.: Kundename wird aus ein ComboBox im Form1 gewält und den Itemindex von der ComboBox1 soll auf der Qrlabel erscheinen.
kannst du mich bis dahin folgen?

[mkinzler]

Dein Code ändert aber nur den Index der ComboBox.

Delphi-Quellcode:

frm_preview.QRlabel.Text := IntToStr( ComboBox1.ItemIndex);

[poterp]

irgendwie schlägt er fehler bei QRLabel1. er meint es ist nicht deklariert. die units sind mit einander verbunden. qrlabel1 habe ich auf die form auch

[mkinzler]

Sorry hatte vorher bei Cut&Paste zu viel genommen.
Wie sieht dein Code jetzt aus?

[poterp]

so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
begin 
if combobox1.ItemIndex > -1 then 
begin 
frm_preview.QRlabel.Text := IntToStr( ComboBox1.ItemIndex);
end; 
frm_preview.QuickRep1.Preview; 
end;

[poterp]

sorry so:

Delphi-Quellcode:

frm_preview.QRlabel1.Text := IntToStr( ComboBox1.ItemIndex);

[mkinzler]

Auf welcher Form liegt das Label?

[poterp]

das QRlabel liegt auf die fr_preview