지병철의 주저리 주저리

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

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..