지병철의 주저리 주저리

[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 TdmMain.CheckInternet: boolean; beginresult:=false;tryIdTCPClient1.ReadTimeout:=2000;IdTCPClient1.ConnectTimeout:=2000;IdTCPClient1.Port:=80;IdTCPClient1.Host:='google.com';IdTCPClient1.Connect;IdTCPClient1.Disconnect;result:=true;exceptresult:=false;end;end;

1. Facebook 에서 페이스북아이디로 프로필 사진 가져오기 http://graph.facebook.com/facebookid/picture?type=type_valuefacebookid : 원하는 회원의 페이스북 idtype_value : large, normal, small, square 중 하나ex) http://graph.facebook.com/100006497919491/picture?type=large 2. 로그인시 권한요청 Prameter 내용 -> https://developers.facebook.com/docs/facebook-login/permissions/#reference-email

// scroll a list box vertically down by one lineSNDMSG(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0); // Other scroll parameters that can be sent...// SB_TOP Scrolls to the upper left// SB_BOTTOM Scrolls to the lower right// SB_ENDSCROLL Ends scrolling// SB_LINEDOWN Scrolls one line down// SB_LINEUP Scrolls one line up // SB_PAGEDOWN Scrolls one page down// SB_PAGEUP Scrolls one page up

https://www.slideshare.net/mobile/TaeYoungLee1/20141029-25-hive

var LEdit:TComponent;begin LEdit := FindComponent(edtMin + no); if (LEdit nil) and (LEdit is TEdit) then (LEdit as TEdit).Enabled := False;end;

원본링크 = http://blog.hjf.pe.kr/200 Android 와 iOS에서 모두 작동 함 주요한 핵심은 1. ShowModal과 익명 메소드(Anonymous Mehtod)를 이용할 것 procedure TfrmParent.Button1Click(Sender: TObject); var dlg : TForm1; begin dlg := TForm1.Create(nil); dlg.ShowModal(procedure(ModalResult : TModalResult) begin if ModalResult = mrOK then // do something here end); end; 2. 모달폼의 해제(Free)는 반드시 폼의 FormClose 이벤트에서 CloseAction을 사용해서 해제할 것 pr..

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 : 한글 포함된 문자열 길이 구할 때

c:\program files\java\jre1.8.0_101