DevHyun

procedure Tform1.button1Click(Sender: TObject); var str1: string; tPos : TPoint; tp : integer; begin str1 := ''; tPos.X := 0; tPos.Y := 1; tp := 'AdvColumnGrid Name'.Find(tPos, str1 , [fnMatchStart]).Y; if tp > 0 then 'AdvColumnGrid Name'.Row := tp; end; - 검색 방법은 여러가지가 있는듯? { fnMatchCase, fnMatchFull, fnMatchRegular,fnDirectionLeftRight, fnMatchStart, fnFindInCurrentRow, fnFindInCurrentCol,fnInc..

advcolumngrid property 셋팅을 아래와 같이 진행 procedure TForm1.AdvColumnGrid1GetFormat(Sender: TObject; ACol: Integer; var AStyle: TSortStyle; var aPrefix, aSuffix: string); begin if ACol in [ 2,3,4] then // col number( 2번 3번 4번 컬럼만 금액순으로 정렬) AStyle := ssFinancial; // 금액순으로 정렬 end;

tms그리드에서 숫자 format 변경은 생각보다 간단하다! property만 바꿔주면 됨! 금액관련 그리드라 천단위(1,000) 콤마가 필요한 상황! Column그리드에선 코딩으로 FormatFloat('#,##0','값')으로 컬럼 자체에 넣어주면 되는데, DB그리드에선 불가능해서 방법을 찾던 도중 property를 살펴봤더니 다음과 같은 property를 찾을 수 있었다. 숫자 컬럼에서 천단위 콤마(1,000)가 필요하다면 FloatFormat 이라는 propery에다가 '%.0n' 을 입력하자! 코딩으로 DBAdvGrid1.FloatFormat := '%.0n' 도 가능!