[Delphi] Frame as a component type TFrameLpr = class(TFrame) pnlTitle: TPanel; pnlInfo: TPanel; pnlImage: TPanel; swEachLprState: TToggleSwitch; btnBarControl: TButton; imgCar: TImage; popGate: TPopupMenu; popOpen: TMenuItem; popClose: TMenuItem; popOpenLock: TMenuItem; popOpenUnLock: TMenuItem; lblUnitName: TLabel; lblCarType: TLabel; lblCarNo: TLabel; imgUnitNameBack: TImage; .. [Delphi] UAC(User Account Control) Drag and Drop 윈도우에서 사용자 권한에 의해 윈도우 메시지를 못 받는 경우가있다.임의로 추가하여 처리해 주어야 함. Drag and Drop 예제- 소스내 주석으로는 2004년에 Peter D Johnson라는 사람이 올린 소스를 수정하였음. 중요한 것은 권한 추가!아래 함수를 추가하면 된다. procedure SetDragAndDropOnSystemsWIthUAC(Wnd: HWND; IsEnabled: boolean); procedure TForm1.SetDragAndDropOnSystemsWIthUAC(Wnd : HWND; IsEnabled : boolean);type TChangeWindowMessageFilter = function(Msg : Cardinal; Action : Word) : Bool; stdca.. [Delphi] Oracle DB Column to Delphi Class 델파이에서 클래스를 만들어서 사용할 때 데이터베이스의 테이블 컬럼들을 그대로 델파이의 클래스형태로 변환해 주는 쿼리.This is sort of translator to use Oracle database table columns for Delphi class object. --Oracle DB Column to Delphi Class/************************************************************************ [ DB → Delphi Class 자동 생성 ]** ex) ED_GB :arrow_lower_right:* FEdGb : string; { 출입국구분 }* procedure SetEdGb(const Value: string); { return.. [Delphi] JsonObject To String 델파이에서 Json 사용하기Using Json in Delphi 우선 델파이의 string에서 Json형태로 변경해주는 한줄 함수At first, the function converting string to JsonString in 1 row. uses 절에 REST.Json 추가Add REST.Json @ uses TJson.JsonToObjectTJson.ObjectToJsonString 클래스 함수로 선언된 것이라 반드시 TJson.을 붙여서 사용해야함This has to write with TJson in front of the function because it is a class function as you can see. 간단한 클래스 생성Create simple class 사용방법Usage.. [Delphi] AP2DEV (DataLoad by Delphi XE2) 델파이로 만든 첫 프로그램.. 운영데이터를 개발로 내리기 위해 만든 툴... 이전 1 다음
