癫狂编程

摘要： 1.使用clientdataset的设置事件的响应： procedure TDataModule2.ClientDataSet1AfterPost(DataSet: TDataSet);beginTry TClientDataSet(DataSet).ApplyUpdates(-1); Except 阅读全文

摘要： procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then //如果是一个Enter键盘 begin if not (ActiveControl is TDBGrid) then //如果 阅读全文

摘要： https://wedelphi.com/t/99347/ 在DBGrid中，怎样判断焦点离开了某个单元格？onColexit事件只能判断用键盘到移到另一列，还不能判断mouse离开单元格，我想做的是：不论是mouse或用键盘离开某个单元格做点别的事情 那个应该可以的呀，OnColExit/OnAf 阅读全文

摘要： procedure Tlogin.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then FindNextControl(ActiveControl,true,false 阅读全文

摘要： 要在 Delphi 中实bai现按回车后控件焦点的转移，可以调du用 Windows API 消息发送函数 PostMessage，做法如下：zhi把 Form1 的 KeyPreview 属性设为 True，在 Edit 和 Memo 的 OnKeyPress 事件dao中加入以下代码：if Ke 阅读全文

摘要： 使用消息机制： 下一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0); 上一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0); 阅读全文

摘要： active control 是当前窗口获得焦点的控件。 WM_NEXTDLGCTL是一个消息。 perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。 if not (active control is TDBGrid) then 窗口具有active control 属 阅读全文