지병철의 주저리 주저리

1. Component 패키지 파일(*.bpl) 과 소스파일들을 원하는 폴더에 복사한다    - 패키지 파일을 원하는 위치에 복사한다 (예: D:\Workspace) 2. Component 설치2-1) 메뉴에서 'Install Packages...' 선택2-2) 'Add'를 선택하여, 복사한 패키지 파일을 선택한 후 'OK'를 선택한다.2-3) Tools > Options... 메뉴을 선택한 후 Language > Delphi > Library 를 선택 한 후 'Library Path' 에 있는 버튼을 선택한다.2-4) 소스가 있는 폴더를 선택한 후 'Add' 버튼을 이용해 소스폴더를 추가 한 후 'OK'버튼을 선택한다. 3. RAD Studio 를 재 실행 시킨다.

FMouseDown: Boolean; // Mouse 가 눌렸는지 확인 FMouseDown_Y: Single; // Mouse Down 되었을 때의 Y 의 값 procedure TfrmMain.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin FMouseDown := True; FMouseDown_Y := Y; end; procedure TfrmMain.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if FMouseDow..

var Form1: TForm1; NumX, NumY: Integer; implementation procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); var Num1, Num2: Integer; Point1, Point2: TPoint; begin Point1.X:=NumX; Point1.Y:=NumY; Point2.X:=X; Point2.Y:=Y; with Source as TListBox do begin Num2:=ListBox1.ItemAtPos(Point1,True); Num1:=ListBox1.ItemAtPos(Point2,True); ListBox1.Items.Move(Num2,..

입력 ComboBox.AddItem('item_string', 'TObject(PChar('value_string')); 출력 item_string := ComboBox.Items[0]; item_value := PChar(ComboBox.Items.Object[0]);

[Delphi] 윈도우 메세지를 받아먹는 3가지 방법 - 보내는 통신규약은 아래와 같다고 가정. SendMessage(FindWindow(nil, 'frmDebug'), WM_USER+123, 0, lParam(LongInt(메세지))); 혹은 PostMessage 1. TApplicationEvents 이용. 1. 폼에디터에 TApplicationEvents 를 하나 박아넣음. 2. 박아넣은 TApplicationEvents 의 OnMessage 함수를 만든..

TCallProc = reference to procedure (abc: integer); TCallFunc = reference to function (abc: integer): boolean; procedure subfunction(url: string; Callback: TCallProc); <- Callback 함수 사용 등에서 함수를 parameter로 넘길 때 reintroduce (부모 Class 함수의 파라미터를 변경하여 사용하고 싶을 때) TClassA = class procedure Draw; virtual; end; TCl..

function StrToIntDef(string 변수, default int value) : Integer > String 을 Integer로 변환한다. 에러 발생시 'default int value'를 Return 한다. > str := '12.a'; > ivalue := StrToIntDef(str, -1)); > if ivalue = -1 then > showmessae('fail') > else > showmessage(inttostr(ivalue); ByteToCharLen : 한글 포함된 문자열 길이 구할 때

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TTest = class StringData: string; protected FOnChange: TNotifyEvent; public constructor Create; published property OnChange: TNotifyEvent read FOnChange write FOnChange; end; TForm1 = class(TForm) B..

* 디자인 가이드 - 구글에서 '애플디자인가이드'를 검색하면 볼 수 있다 - 안드로이드 디자인 가이드를 검색해서 보면 된다. * 화면구성에는 TAB 과 Frame(동적) 을 많이 쓴다. * Layout 은 HitTest = False 이므로, 필요시 True 로 만들어 쓴다. * www.fmxexpress.com * SQLite, MySQL 을 테스트하기 위해서는 컴퓨..

FireMonkey 와 VCL 다른점 1. Zero Base 배열만 2. 어셈블러 포함 X 3. with 문 쓸 수 없음 4. 자동 개체 인스턴스 free 5. 유니코드