Q&A
- 리스트 뷰에서 마우스로 셀렉트 했을때 질문입니다.
제가 짠 코드가
procedure TfmMain.TimeListViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
i : Integer;
ListItem : TListItem;
begin
if Button = mbLeft then
with fmMain.TimeListView do
begin
for i:=0 to fmMain.TimeListView.items.Count do
if ListItem.Selected = true then
Panel1.Caption := ListItem.Caption ;
end;
이것인데 마우스로 클릭 했을때 리스트 뷰의 선택된 첫번째 이름을 판넬에 보이게 할려고 했습니다.
근데 생각처럼 잘 안되네요...
만약 리스트 뷰에
멍멍이 개과
원숭이 유인원
수다쟁이 앵무새
이런 리스트 뷰이면
마우스로 원숭이를 클릭 했을때
판넬에 원숭이만 나타 나게 할려고 햇습니다만...
안되네요....
아직 초보이다 보니 이래 저래 안되는게 많은거 같습니다...
소스 보시고 많은 조언 부탁드립니다.
procedure TfmMain.TimeListViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
i : Integer;
ListItem : TListItem;
begin
if Button = mbLeft then
with fmMain.TimeListView do
begin
for i:=0 to fmMain.TimeListView.items.Count do
if ListItem.Selected = true then
Panel1.Caption := ListItem.Caption ;
end;
이것인데 마우스로 클릭 했을때 리스트 뷰의 선택된 첫번째 이름을 판넬에 보이게 할려고 했습니다.
근데 생각처럼 잘 안되네요...
만약 리스트 뷰에
멍멍이 개과
원숭이 유인원
수다쟁이 앵무새
이런 리스트 뷰이면
마우스로 원숭이를 클릭 했을때
판넬에 원숭이만 나타 나게 할려고 햇습니다만...
안되네요....
아직 초보이다 보니 이래 저래 안되는게 많은거 같습니다...
소스 보시고 많은 조언 부탁드립니다.
2
COMMENTS
-
-
<!--CodeS-->
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ListView.Selected <> nil then
begin
Panel1.Caption :=ListView1.Selected.Caption;
end;
end;
<!--CodeE-->
요
(NOTICE) You must be logged in to comment on this post.
-
- 박종철
- 2006.04.04 19:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 정민경
- •
- 2006.04.04 19:02
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.04 23:05안녕하세요. 최용일입니다. 흠... 그냥 추측입니다만... 아마도 Ini파일찾을때 경로 설정을 상대경로...
-
정민경•2006.04.05 01:24설치후 만들어진 단축아이콘의 속성과 제가 임의로 만든 아이콘의 속성을 비교해 보았습니다. 그런데, ...
-
정민경•2006.04.05 01:53[Icons] Name: {group}\FarmSales; Filename: {app}\Main.exe Name: {userdesktop}\FarmSales; Filen...
-
- 레도
- •
- 2006.04.04 19:00
- •
- 6 COMMENTS
- /
- 0 LIKES
-
정희돈•2006.04.04 19:22
-
레도•2006.04.04 22:24
-
최용일•2006.04.04 22:41
-
레도•2006.04.05 00:48
-
최용일•2006.04.05 02:49
-
레도•2006.04.06 00:35
-
- 강중규
- •
- 2006.04.04 18:23
- 1 COMMENTS
- /
- 0 LIKES
-
정희돈•2006.04.04 19:26크리스탈 리포트가 유료라서 여기서는 올릴수 없을 껍니다 차라리 와레즈나 웹하드 관련 사이트에서 구하...
-
- 박종철
- •
- 2006.04.04 06:52
- 2 COMMENTS
- /
- 0 LIKES
-
가시나무 새•2006.04.04 20:25<!--CodeS--> function EnumWindowsProc(Hwnd:Hwnd;IParam:lParam):Boolean; stdcall; begin &nbs...
-
박종철•2006.04.04 19:22어제 1시간이 조금 더 넘게 검색을 하다가 팁/테크에서 찾았습니다. 검색으로 찾지말고 팁/테크 게시물을...
-
- 강중규
- 2006.04.04 04:57
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이-델짱
- •
- 2006.04.04 01:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.04 23:19안녕하세요. 최용일입니다. 뭐 안될것도 없죠. OCX가 규격화된 4개의 함수가 익스포트되어야 하고 그 중...
-
- 강훈진
- •
- 2006.04.04 00:21
- 1 COMMENTS
- /
- 0 LIKES
-
가시나무 새•2006.04.04 02:38<!--CodeS--> procedure Tfrmmain.Button1Click(Sender: TObject); var hwnd: Intege...
-
- 해오름
- •
- 2006.04.03 21:47
- 2 COMMENTS
- /
- 0 LIKES
-
zstyle•2006.04.19 19:49오버레이를 사용하시던가, 만약 dshow를 사용하지 않고 vfw로만 구현하셨다면, 콜백을 만들어 콜백 되어온...
-
박상윤•2006.04.07 02:00오버레이나.. 오버레이 믹서사용하시면 해결됩니다.
-
- 김길남
- 2006.04.03 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 황윤환
- •
- 2006.04.03 08:56
- 2 COMMENTS
- /
- 0 LIKES
-
이승혁•2006.04.09 03:25Delphi 8, BDS 2005, BDS 2006은 .NET Framework 1.x 용 프로그래밍이 가능하지만 일반 PC용 프로그래밍만...
-
깔쌈보이•2006.04.03 19:42가능합니다. 물론 Delphi 2006 버젼, for .NET 환경이라면... ^^; Delphi7과 같이 일반 윈도우버젼은 ...
-
- 매콤고래밥
- 2006.04.03 04:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 유형곤
- 2006.04.01 22:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 둘리
- 2006.04.01 21:23
- 0 COMMENTS
- /
- 0 LIKES
-
- serin
- 2006.04.01 17:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 천희택
- 2006.04.01 04:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 고광민
- •
- 2006.04.01 03:21
- 2 COMMENTS
- /
- 0 LIKES
제가 짠 코드가 procedure TfmMain.TimeListViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var i : Integer; ListItem : TListItem; begin if Button = mbLeft then with fmMain.TimeListVi...-
둘리•2006.04.01 18:41아래 event를 사용해 보세요 잘 동작합니다. 그럼 즐프하게요... <!--CodeS--> procedure TFor...
-
가시나무 새•2006.04.01 19:27<!--CodeS--> procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; &nbs...
-
- 강민성
- 2006.04.01 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정우
- •
- 2006.04.01 00:04
- 1 COMMENTS
- /
- 0 LIKES
-
깔쌈보이•2006.04.03 19:43IDE의 전체적 UI가 .NET 스타일로 변했다던가... 뭐, 기타 부가적인 여러가지 기능이 추가된것 등등을 무...
-
- 강중규
- •
- 2006.03.31 21:33
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2006.04.01 04:37안녕하세요 하얀까마귀 입니다.. 음.. 개인적으로 퀵을 많이 사용은 안합니다만 제가 아는한 없는걸로 ...
잘 동작합니다.
그럼 즐프하게요...
<!--CodeS-->
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
Panel1.Caption := Item.Caption;
end;
<!--CodeE-->