Quickreport- !?!

[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;