Delphi
[Delphi] SelStart, SelText 사용법
SelStart 사용하기 Edit의 Text에 문자를 작성하고자 할 때 밑의 코드대로 작성한 경우 항상 포커스가 맨 앞으로 가게되어 원하는 글자를 쓸 수 가 없었습니다. (목표 글자 : ABCDEFG) procedure TForm1.EditChange(Sender: TObject); var i: Integer; begin (Sender as TEdit).Text := UpperCase((Sender as TEdit).Text); end; 해당 버그를 수정하기 위해 다음과 같이 코드를 수정하였고 버그를 해결할 수 있었습니다. procedure TForm1.EditChange(Sender: TObject); var i: Integer; begin i := (Sender as TEdit).SelStart; (..
StrGrid to QuickReport
QuickRep 컴포넌트의 Object inspector 의 Event OnNeedData 추가 procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData := i < StringGrid.RowCount; end; QuickRep 컴포넌트의 Object inspector 의 Event BeforePrint 추가 procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin i := 0; // 변수 초기화 end; DetailBand 에 QRLabel 추가, BeforePrint 추가 proced..