行の最後の1を追加し、自動的に停止する方法DBGRID

手順TForm1.DataSource1DataChange（送信者：TObjectを、フィールド：のTField）。
始める
  場合のTDataSource（送信者）.DataSet.Eof 、その後のTDataSource（送信者）.DataSet.Cancel。
エンド ;

DBGridEhはそれで、限りプロパティをfalse alopAppendEhに設定されているようにすることができ


、編集のDBGridを禁止する、最も簡単なオプションはDBGridののプロパティをfalseに設定goEditingう

trueに読み取り専用テーブルまたはクエリの変化を指しているデータソースを


TForm1 :: Table1BeforeInsert（TDataSetの__fastcall無効 * データセット）
 { 
  アボート（）; 
}  


手順 TFormLOrder.DBGridLOrderKeyDown（送信者：TObjectを、VaRの主要：ワード、

シフト：TShiftState）; 
始める
IF（キー= VK_DOWN）又は（キー= VK_TAB）次に、
IF DBGridLOrder.DataSource.DataSet.RecNo = 
DBGridLOrder。 DataSource.DataSet.RecordCount その後、
キー： = 0 ;
 終了; 

 

HTTP：// bbs.csdn.net/topics/20441300 

あなたがこの機能を削除した場合、最後のレコードに「下」をクリックすると、レコードを追加します移動する

手順TForm1.DataSource1Change（送信者：;フィールド,:のTField TObjectを）
 始める
  のIF TDataSource（Senderが）.DataSet.Eof 、その後のTDataSource（送信者）.DataSet.Cancel;
 エンド ;