프로그래밍 노트

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

델파이 XML Data Binding으로 xml 파일 조작하기 소스를 열어둔 상태에서 Tool Palette를 보면 Delphi Projects | XML이 있다. 그 밑에 XML Data Binding이 있다. 그것을 클릭한다. 그러면 아래 윈도우가 표시되어지고 조작할 XML 파일을 선택하고 "Next" 버튼을 누른다. XML Data Binding Wizard 화면에서도 특별히 고치지 않고 "Next" 버튼을 누른다. 그러면 아래와 같이 새로운 pas파일이 생성되면서 조금전에 선택한 XML 파일의 조작하기 쉽게 xml 파일이 바인딩된다. 그리고 이 바인딩된 xml 파일을 사용하고자 하는 곳에 추가된 unit명과 xmldom, XMLIntf, XMLDoc을 uses에 추가해야 된다. xml Data B..

델파이에서 프로그램이 있는 패스(디렉토리) 얻기 procedure TForm1.FormCreate(Sender: TObject); var CurrentPath : array [0..256] of char; begin // 프로그램이 있는 현재의 디렉토리 정보 얻기 GetCurrentDirectory(sizeof(CurrentPath), CurrentPath); Form1.Caption := CurrentPath; end;