Delphi&BCB一线程序员开发经验
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| TCustomListView *Sender, TListItem *Item, TCustomDrawState State,bool &DefaultDraw) //这段代码 会在选定行下画黄底 { if(Sender->Selected !=NULL) if(Item->Index == Sender->Selected->Index) { Sender->Canvas->Brush->Color = clYellow; Sender->Canvas->Font->Color = clBlue; } } 对一般超过2秒的操作要在函数中 TCursor OldCursor; OldCursor = Screen->Cursor; Screen->Cursor = crSQLWait; try{...} __finally{Screen->Cursor = OldCursor;} procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); begin if (Shift = []) and (Key = VK_RETURN) then //以回车键代替Tab键 Perform(WM_NEXTDLGCTL, 0, 0); if Key = VK_NEXT then //按PageUp PageDown使TPageControl切换页面 begin if PageControl.ActivePageIndex = PageControl.PageCount - 1 then PageControl.ActivePageIndex := 0 else PageControl.ActivePageIndex := PageControl.ActivePageIndex + 1; end else if Key = VK_PRIOR then begin if PageControl.ActivePageIndex = 0 then PageControl.ActivePageIndex := PageControl.PageCount - 1 else PageControl.ActivePageIndex := PageControl.ActivePageIndex - 1; end; end; end. 6 按钮互徹 当每完成一个操作动作时 有些按钮要变成无效状态，在什么情况下又恢复有效。虽然只有一段话，如果不设置无效的话会经常带来各种致命错误！因为你是无法预测用户将会如何去操作你的软件，可用Rose来画出状态图或者用Word来表示！ 7 性能 当数据多时超过100条，ComboBox Listbox TreeView ListView DBGrid 等数据显示组件边输入边查询 支持模糊查询 模糊查询无非就是 Like ‘%XXX%’可以做个单独的窗口把查到的数据显示在窗口中 void __fastcall TfrmGather760::Edt_NameKeyPress(TObject *Sender,char &Key) { if(Key != VK_RETURN) return; String sSQL; sSQL =" Select Name as 姓名, Sales as 薪水 , from employee"; sSQL +=" where Name like '%"+ LowerCase(Edt_Name->Text.Trim()) + "%' "; TfrmPubDlg *pubDlg = new TfrmPubDlg(this); pubDlg->ExecuteQuery(sSQL); pubDlg->ShowModal(); ..... } 8 其他 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Dephi资源文件中、高级应用篇下一篇: Delphi的Hint入门指导
关于Delphi&BCB一线程序员开发经验的所有评论
