F1Book TF1Book Active Cell

[Chippie82]

Hallo Leute,
ich möchte gerne ein paar Sachen mit der Tabelle F1Book zu machen.
Jetzt ist meine erste Frage, wie speichere ich etwas in der ersten Zeile A1? Wie sieht der Quelltext dazu aus?
Wo kann ich nähere Informationen zu dem Book bekommen bzw. nachlesen?
Das werden bestimmt nicht die letzten Fragen dazu sein.
Ich hoffe auf eure Unterstützung!


Bis dann euer Chippie

[Bernhard Geyer]

Muss es TF1Book sein? ist ein ActiveX mit all seinen nachteilen.

Falls Du ein paar € ausgeben kannst schau dir mal TAdvSpreadSheed von TMS-Software an

[Chippie82]

Habe jetzt einen neue Frage dazu.
Erst mal der Quelltext:

Delphi-Quellcode:

unit Unit1;  

 
interface  

 
uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  StdCtrls, AxCtrls, OleCtrls, vcf1;  

 
type  
  TForm1 = class(TForm)  
    Button1: TButton;  
    Button2: TButton;  
    procedure Button1Click(Sender: TObject);  
    procedure Button2Click(Sender: TObject);  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  Form1: TForm1;  
  Film: String;  
  Ok: Boolean;  
implementation  

 
uses Unit2;  

 
{$R *.DFM}  

 
procedure TForm1.Button1Click(Sender: TObject);  
 begin  
  repeat  
  Ok:= InputQuery('', 'Bitte geben Sie hier den Filmnamen ein', Film);  
   if OK  
    then Form2.f1book1.TextRC[1,1] :=Film;  
     until  
      not OK;  
end;  

 
procedure TForm1.Button2Click(Sender: TObject);  
 begin  
 Form2.Show;  
end;  

 
end.  

 

 

 
unit Unit2;  

 
interface  

 
uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  AxCtrls, OleCtrls, vcf1, StdCtrls, ComCtrls;  

 
type  
  TForm2 = class(TForm)  
    Button1: TButton;  
    F1Book1: TF1Book;  
    procedure Button1Click(Sender: TObject);  

 
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  Form2: TForm2;  

 
implementation  

 
uses Unit1;  

 
{$R *.DFM}  

 

 
procedure TForm2.Button1Click(Sender: TObject);  
 begin  
 Form1.Show;  
end;
end.

Wie bekomme ich es jetzt hin, dass ich mit jeder Eingabe nicht immer das gleiche Feld des F1Books beschreibe, sondern dann die nächste Zeile darunter?

[Lannes]

Hallo,

, dort