파란크리스마스

다운받는곳 : Soft Gems Homepage (http://www.soft-gems.net/)  속성 VT.TreeOptions.SelectionOptions := [toDisableDrawSelection,toExtendedFocus,toMiddleClickSelect,toMultiSelect,toRightClickSelect{,toCenterScrollIntoView}]; 이벤트 OnFocusChanged procedure Xxx.VTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex); var Data: PAlignData; begin // Data := Sender.GetNodeData(Node); e..

- 움직이는 Form 출처 : http://delphi.about.com/od/windowsshellapi/a/dragnocaption.htm procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ; begin ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ; end - 현재 디렉토리 procedure TSimpleListDemoDataDM.DataModuleCreate(Sender: TObject); var ExeFileName : String; ExePath : String; begin Exe..

출처 - http://cc.embarcadero.com/Item/26667 DCocoR 예제를 간단하게 수정하여 만들어 보았습니다. ExprUnit.atg ---------------------------------------- COMPILER ExprUnit FRAME "delphi.frm" header = (. .) uses = (.SysUtils,Variants,StrUtils.) private = (. .) protected = (. .) public = (. function Evaluate(const str: String): integer; .) publicProps = (. .) precreate = (. .) implementation = (. function TExprUnit.Evaluat..

출처 : http://fendee.egloos.com/9909821 http://delphi.about.com/od/delphitips2007/qt/parse_cmd_line.htm function ParamStr(Pos : Integer): string - end -

출처 : http://igniter.egloos.com/7306760 // document.forms["form1"].elements["userid"]; // var obj = document.getElementById("userid"); // var frm = document.forms["form1"]; for ( i=0; i < frm.length; i++){ var type = "element type : " + frm[i].type + "\n\n"; var name = "element name : " + frm[i].name + "\n\n"; var value = "element value : " + frm[i].value + "\n\n"; }