[Delphi] Listbox Item 선택하기. (List, SendMessage, LB_SETCURSEL, LB_GETITEMRECT)
Delphi 2010. 7. 14. 13:37SendMessage를 이용하여 ListBox Item 선택하기.
procedure SelectListboxItem(hListBox: HWND; ItemIndex: Integer);
var rt: TRect;
begin
if hListbox=0 then Exit;
SendMessage(hListBox, LB_SETCURSEL, ItemIndex, 0);
SendMessage(hListBox, LB_GETITEMRECT, ItemIndex, Integer(@rt));
SendMessage(hListBox, WM_LBUTTONDOWN, 0, MakeLParam(1, rt.Top+1));
SendMessage(hListBox, WM_LBUTTONUP, 0, MakeLParam(1, rt.Top+1));
end;
var rt: TRect;
begin
if hListbox=0 then Exit;
SendMessage(hListBox, LB_SETCURSEL, ItemIndex, 0);
SendMessage(hListBox, LB_GETITEMRECT, ItemIndex, Integer(@rt));
SendMessage(hListBox, WM_LBUTTONDOWN, 0, MakeLParam(1, rt.Top+1));
SendMessage(hListBox, WM_LBUTTONUP, 0, MakeLParam(1, rt.Top+1));
end;
'Delphi' 카테고리의 다른 글
| [Delphi] .lnk (바로가기) 파일에서 실행파일 경로 가져오기 (0) | 2010.10.25 |
|---|---|
| [Delphi] 디렉토리 생성 (0) | 2010.07.14 |
| [Delphi] DLL의 폼을 Splash 윈도우로 사용하기 (CreateParams) (0) | 2010.07.08 |
| [Delphi] 실행파일이 자기자신을 지우기 (0) | 2010.07.07 |
| [Delphi] 디렉토리 삭제,복사,이동,이름바꾸기 (ShFileOperation, TShFileOpStruct) (0) | 2010.07.07 |
