본문 바로가기

Developist

Delphi/끄적이기 DataSet Filter Ex) 기존 DataSet Filter 사용 시var DataSet : TDataSet;begin with DataSet do begin try DisableControls; Filtered := False; Filter := 'Test = ''T'''; Filtered := True; if RecordCount = 0 then begin ShowMessage('선택한 데이터가 없습니다.'); Exit; end; Filtered := False; Filter := 'Test = ''F'''; Filtered := True; if RecordCount = 0 then begin ShowMessage('선택한 데이터가 없습니다.'); Exit; end; finally Filtered := False; Fil..
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/꿀팁 타이머로 간단하게 흐르는 텍스트효과 주기 폼에 TImage와 TTimer 컴포넌트를 하나씩 올려줍니다. type TFlowText = record Text : string; TextWidth : Integer; TextX : Integer; TextY : Integer; Width : Integer; end; TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; btnStart: TButton; btnPause: TButton; procedure btnStartClick(Sender: TObject); procedure btnPauseClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); private FFlowText: TFlowText; p..

티스토리툴바