|
#1
|
||||
|
||||
F1Book
Всем привет!
Как добавлять записи в F1Book по строкам, чтобы вновь введенные данные записывались в последующую ячейку? Буду рада любым подсказкам... |
#2
|
||||
|
||||
А что это за компонент такой F1Book? Я использую Delphi6, и там я его не нашел. Если это отдельно установленный компонент, присылай (decoding@yandex.ru) или выкладывай...
|
#3
|
||||
|
||||
TF1Book
Это компонент находится во вкладке ActiveX.
У меня Delphi7. Он типа екселевской таблицы. |
#4
|
||||
|
||||
Если я правильно понял твою мысль, то тебе нужно послать компоненту 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; |
#5
|
|||
|
|||
Момогите разобряться как можно объеденить ячейки в компоненте F1book и вообще у кого-нибудь есть документация к компоненту, хотябы на английском языке? Заранее спасибо
|