일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 |
- 입문
- 초보
- 파라미터
- 기초
- 소니
- 예제
- PostgreSQL
- MFC
- Visual Studio 2005
- VB.NET
- Visual Basic
- vb
- 셋업
- Firebird
- dll
- WIN32 SDK
- SDK
- 인스톨
- 설치
- 델파이
- xml
- 파이어버드
- c#
- Delphi
- SQL
- 문자열
- 시리얼 통신
- 데이터베이스
- winsock
- MySQL
- Today
- Total
목록2007/11/28 (3)
프로그래밍 노트
델파이에서 체크박스를 토글버튼처럼 쓰기 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(CheckBox1.Handle, GWL_STYLE, GetWindowLong(CheckBox1.Handle, GWL_STYLE) or BS_PUSHLIKE); end;
클립보드의 데이터를 StringGrid에 붙이기 엑셀에서 데이터를 카피해서 StringGrid에 붙이기 클립보드의 데이터를 쓰기위해서는 uses절에 Clipbrd 를 추가해야 된다. procedure TfrmCable.PasteToGrid(sgrdPaste: TStringGrid; iCol, iRow: integer); const cTab = #9; cCR = #13; cLF = #10; var iCols : integer; iRows : integer; i : integer; sClip : string; sSubs : string; begin // Col,Row 이 음수 일때는 0으로 if iCol < 0 then iCol := 0; if iRow < 0 then iRow := 0; sClip := C..
TEdit에서 숫자만 입력 가능하게 하는 방법 procedure TfrmTest.edtTestKeyPress(Sender: TObject; var Key: Char); begin // 숫자만 입력 가능하게 if (key in ['0'..'9']) or (Key = #8) then else Key := #0; end; 아래와 같이도 할 수 있음 iKey := ord(Key); if iKey = $08 then exit; if not(iKey in [$30..$39]) then begin Key := #0; exit; end;