[Надин]

Всем привет!
Как добавлять записи в F1Book по строкам, чтобы вновь введенные данные записывались в последующую ячейку? Буду рада любым подсказкам...

[Decoding]

А что это за компонент такой F1Book? Я использую Delphi6, и там я его не нашел. Если это отдельно установленный компонент, присылай (decoding@yandex.ru) или выкладывай...

[Надин]

Это компонент находится во вкладке ActiveX.
У меня Delphi7.
Он типа екселевской таблицы.

[Decoding]

Если я правильно понял твою мысль, то тебе нужно послать компоненту F1Book сообщение о нажатии клавиша TAB. Сделать это можно так:

Код:

procedure TForm1.F1Book1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #13 then
      keybd_event( VK_TAB, 0, 0, 0 );
end;

procedure TForm1.F1Book1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_RETURN then Key := 0;
end;

procedure TForm1.F1Book1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_RETURN then Key := 0;
end;

Это если текст вводится непосредственно в F1Book. Если текст вводится из другого компонента (например, из TEdit по нажатию та TButton), то к тому коду, который написан выше, добавь следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Key: char;
begin
   Key := #13;
   F1Book1.Text := Edit1.Text;
   F1Book1.SetFocus;
   F1Book1.OnKeyPress( Sender, Key );
end;

[Demonixoid]

Момогите разобряться как можно объеденить ячейки в компоненте F1book и вообще у кого-нибудь есть документация к компоненту, хотябы на английском языке? Заранее спасибо