델파이 퀀텀그리드 Excel출력하기
델파이 퀀텀그리드 Excel출력하기 1. uses 절에 다음을 추가 한다 cxGridExportLink , shellApi 2. 엑셀버튼 클릭시 SaveDialog1.FileName := '상품코드.xls'; if SaveDialog1.Execute then begin ExportGridToExcel(SaveDialog1.FileName, Grid_Master, true, true, false, 'xls'); Application.ProcessMessages; if MessageDlg(SaveDialog1.FileName + ' 파일을 실행하시겠습니까?', mtWarning, [mbYes, mbNo], 0) = mrYes then ShellExecute(self.Handle, PChar('OPEN'), ..
2021. 8. 31.
델파이 ReleaseCapture SetCapture GetCapture 컴포넌트 이동
델파이 ReleaseCapture SetCapture GetCapture 컴포넌트 이동 ReleaseCapture, SetCapture, GetCapture 메소드들은 마우스 이벤트를 헨들링하기 위해 사용하는데요., 설명하자면, 평상시에는 마우스포인트가 움직일때, 그 포인트 밑에 있는 컨트롤들이 메시지를 받아서 처리하게 되는데, SetCapture 로 특정컨트롤을 지정하면, 마우스의 메시지가(클릭,이동등등..) 그 컨트롤에 보내지게 됩니다. 즉, 마우스 포인터가 컨트롤의 Front에 존재하지 않아도 컨트롤은 메시지를 받아 특정한 임무를 할 수 있죠.., 많이 쓰이는 곳은 드래그 하여 영역을 지정하고 싶을때, 또는 마우스 드래그등을 할 때 등.. 런타임 컨트롤 마우스 이동등의...기능들... GetCapt..
2021. 8. 22.
델파이 마우스 아래의 윈도우 핸들 구하기
델파이 마우스 아래의 윈도우 핸들 구하기 // 아래처럼 타이머를 사용하지 않고 마우스 후킹을 사용하면 좀더 간결한 프로그램을 만들 수 있습니다 // SetWindowsHookEx(WH_MOUSE,...) 를 찾아보세요 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private..
2021. 8. 15.
델파이 마우스 위치의 컨트롤
델파이 마우스 위치의 컨트롤 // 마우스 포인터 위치의 콘트롤(콤포넌트)의 이름을 폼의 Caption에 // 출력하는 예로 아래의 Label1, Edit1, Memo1, Button1 등은 임의로 // 올려놓으시고 테스트 해보세요 // Panel 안에 있는 콘트롤도 구분할 수 있습니다 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Memo1: TMemo; Button1: TButton; private { Private declarations } proce..
2021. 8. 14.
