2010年9月25日
CXGRID，定位并高亮
varI, FoundPos: integer;AColumn : TcxGridDBColumn;AText : String;beginAText := 'Blue Sports';with cxGrid1DBTableView1 dobeginAColumn := GetColumnByFieldName('Company');for I := 0 to ViewData.RecordCount - 1 doif ViewData.Rows[I].IsData thenbeginViewData.Rows[I].Focused := True;with C Read More
posted @ 2010-09-25 23:49 血舞&葬青衣 Views(409) Comments(0) Diggs(0)
CXGRID设置Selstart和SelLength
//找到指定位置，并将文字插入Grid当前的编辑单元格中varPart1, Part2 : string;CurrentEditor : TcxTextEdit;beginCurrentEditor := TcxTextEdit(<view>.Controller.EditingController.Edit);if CurrentEditor <> nil thenbeginPart1 := Copy( CurrentEditor.Text, 1, CurrentEditor.SelStart );Part2 := Copy( CurrentEditor.Text, Read More
posted @ 2010-09-25 23:46 血舞&葬青衣 Views(271) Comments(0) Diggs(0)