프로그래밍 노트

델파이에서 IIF가 없지만 IfThen이 있다. IfThen을 쓰려면 uses절에 Math를 추가해야 된다. Math를 추가하는 것을 봐서 짐작이 가듯 IfThen에서 리턴값은 수치값이다. procedure TForm1.Button1Click(Sender: TObject); var iCheck : integer; begin iCheck := IfThen(CheckBox1.Checked, 1, 0); ShowMessage(IntToStr(iCheck)); end;

델파이에서 텍스트박스에서 오른쪽 클릭하면 뜨는 팝업창 없애기 텍스트 박스에서 숫자입력 만 제한한다고 하여도 오른쪽 클릭에서 붙여넣기를 하면 숫자입력이 가능한 것을 이것을 이용하면 숫자 입력이 불가능하여진다. (반대로 붙이기가 안되서 불편하려나? -.-;) procedure TfrmTest.edtTestContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin // 오른쪽 클릭해서 뜨는 팝업창 불능화 하기 Handled := True; end; 알고나니까 이렇게 쉬운데 이거 찾는데 시간이 너무 오래 걸렸다. T.T 나의 검색 능력이 떨어져서 그런걸까?

델파이에서 체크박스를 토글버튼처럼 쓰기 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;

델파이에서는 표준으로 Jpeg 이미지 파일을 불러올 수는 없지만 Jpeg 유닛을 사용하면 가능하다. Jpeg이미지 보여주기 ◆ Uses절에 Jpeg 추가 procedure TForm1.Button1Click(Sender: TObject); Var jpgImage : TJpegImage; begin // JPEG 이미지 오브젝트 인스턴스화 jpgImage := TJpegImage.Create ; // Jpeg 이미지 불러오기 jpgImage.LoadFromFile('C:hhh.jpg') ; // Image1에 어사인 Image1.Picture.Assign(jpgImage); // 오브젝트 파기 jpgImage.Free; end;

델파이의 리스트박스에서 VB의 ItemData의 기능을 쓰려면 어떻게 하나 찾아보니까 방법이 있었다. ListBox1.Clear; ListBox1.Items.AddObject('사자', TObject(10)); ListBox1.Items.AddObject('호랑이', TObject(20)); ListBox1.Items.AddObject('곰', TObject(35)); 이런식으로 자료를 넣고서 데이터를 가져올때는 밑의 방법으로 가져온다. iID := LongInt(ListBox1.Items.Objects[0]); 그러면 iID에 10이 대입된다. 델파이의 리스트박스에서 아이템을 추가할 때는 아이템별로 오브젝트를 넣을 수 있어서 리스트박스에 추가하는 아이템 하나에 더 많은 정보를 입력할 수 있다.

델파이로 MDB 데이터베이스 만들기 MDB 패스워드 설정하기 MDB 패스워드 변경하기 MDB 최적화하기 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, ActiveX, StdCtrls; // 데이터베이스 생성(MDB) function CreateDB(const sPath: string; var sErr: string): Boolean; const csConnStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="%s"'; var oleCatalog: OleVariant; sConnStr: string; begin Result := false;..

델파이에서 동적으로 배열 컨트롤을 만들었을 때의 컨트롤 유무 체크 하는 방법 VB에서는 어떤 오브젝트가 생성되었는지 안되었는지 알기위해서는 IsObject라는 함수가 있다. 델파이에서는 배열 컨트롤이 있는지 없는지 체크하기 위해서는 밑의 소스처럼 is를 사용수 있다. procedure TForm2.Button1Click(Sender: TObject); begin if btnD[3] is TObject then btnD[3].Caption := 'ttttt'; end;

델파이에서 동적으로 컨트롤 만드는 두가지 방법 밑의 소스의 ①과 ②를 보면 컨트롤을 동적으로 만드는 법이 두가지가 있다. ①처럼 바로 컨트롤을 만드는 방법과 ②처럼 기존에 동적 배열 컨트롤을 정의해 두고 배열의 크기를 설정해서 컨트롤을 만드는 방법이 있다. 이 프로그램을 실행시켜서 컨트롤 키를 누르고 마우스를 클릭하거나 컨트롤 키를 누르지 않고 마우스를 클릭하면 동적으로 컨트롤들이 폼에 생성되어진다. 그리고 그렇게 생성되어진 컨트롤을 클릭하면 각 컨트롤의 캡션이 폼의 캡션에 표시되어진다. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, E..