본문 바로가기

cell

Delphi/간단하게 cxGrid에서 선택한 Cell의 컬럼정보 가져오기 1. OnCellClick 이벤트에서 가져오기 procedure TForm1.CellClick(Sender: TcxCustomGridTableView; ACellFViewinfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //ACellViewInfo.Item = Column ShowMessage(ACellViewInfo.Item.Caption); end; 2. OnMouseDown 이벤트에서 가져오기 procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:..
Delphi/꿀팁 TcxGrid에서 특정 Cell만 Editing 허용하기 Grid의 TableView에서 OnEditing 이벤트를 추가합니다. procedure TForm1.GridTableViewEditing(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; var AAllow: Boolean); begin //특정 Record만 필요할 경우 선택 허용 if (Sender.Controller.FocusedRecordIndex = 1) then begin //특정 Column일 경우 원하는 조건을 설정하여 Editing 허용 AAllow := ((AItem.Caption = 'Test') or (AItem.Index = 0)); end; end;
Delphi/꿀팁 Excel에 데이터 넣고 저장하기 uses .., ComObj; var ExcelObj: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; begin ExcelObj := CreateOLEObject('Excel.Application'); ExcelObj.DisplayAlerts := False; WorkBook := ExcelObj.Workbooks.Add; //통합문서를 생성합니다. WorkSheet := WorkBook.WorkSheets[1]; //Sheet를 선택합니다. //엑셀에 데이터를 입력합니다. WorkSheet.Cells[1, 1].Value := 'test'; WorkSheet.Cells[2, 1].Value := 'excel'; WorkSheet.Cells[3, 1..

티스토리툴바