Q&A
- 질문.. With문
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
begin
SelectedText :='';
if Button = mbLeft then
with Sender as TlistBox Do <===== 요기
begin
index := ItemAtPos(Point(X,Y),True);
if index >= 0 then
begin
Begindrag(false);
SelectedText := Items.Strings[Index];
end;
end;
end;
위 소스를 보면.. with sender as Tlistbox do 란 문장이 있습니다
보통 비베에서 보면.. 저건 Sender 은 Tlistbox 다.. 이런 문장일텐데..
그렇다면.. With Serder 을 없애고 Sender as Tlistbox 를 써 준다음...
밑에 부분 부터..
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
begin
SelectedText :='';
if Button = mbLeft then
Sender as TlistBox <===== 요기
begin
index := Sender.ItemAtPos(Point(X,Y),True); <=== 요기
if index >= 0 then
begin
Begindrag(false);
SelectedText := Sender.Items.Strings[Index]; <=== 요기
end;
end;
end;
이런 식으로 해 줘도 돼야 하지 않나요..??????
제가 오늘 처음 델파이를 해 봐서.. With문에서 Sender as TlistBox 가 뭘 뜻하는건지..
잘 모르겠네요.. 보통 책의 With문 예제를 봐도.. 걍 With 이름 do 이런 식으로 나와 있거든요... 델파이에선 Sender as Tlistbox 가 뭘 뜻하는건지..
그리고 맨 위의 소스를 With 문을 없애고 똑같은 기능을 하게 어떻게 바꿀수 있나요..
Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
begin
SelectedText :='';
if Button = mbLeft then
with Sender as TlistBox Do <===== 요기
begin
index := ItemAtPos(Point(X,Y),True);
if index >= 0 then
begin
Begindrag(false);
SelectedText := Items.Strings[Index];
end;
end;
end;
위 소스를 보면.. with sender as Tlistbox do 란 문장이 있습니다
보통 비베에서 보면.. 저건 Sender 은 Tlistbox 다.. 이런 문장일텐데..
그렇다면.. With Serder 을 없애고 Sender as Tlistbox 를 써 준다음...
밑에 부분 부터..
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
begin
SelectedText :='';
if Button = mbLeft then
Sender as TlistBox <===== 요기
begin
index := Sender.ItemAtPos(Point(X,Y),True); <=== 요기
if index >= 0 then
begin
Begindrag(false);
SelectedText := Sender.Items.Strings[Index]; <=== 요기
end;
end;
end;
이런 식으로 해 줘도 돼야 하지 않나요..??????
제가 오늘 처음 델파이를 해 봐서.. With문에서 Sender as TlistBox 가 뭘 뜻하는건지..
잘 모르겠네요.. 보통 책의 With문 예제를 봐도.. 걍 With 이름 do 이런 식으로 나와 있거든요... 델파이에선 Sender as Tlistbox 가 뭘 뜻하는건지..
그리고 맨 위의 소스를 With 문을 없애고 똑같은 기능을 하게 어떻게 바꿀수 있나요..
2
COMMENTS
-
-
그냥 ListBox1.Item..... 이렇게 쓰시든지
아니면 (Sender as TlistBox).Item....
이렇게 쓰시면 됩니다.
(NOTICE) You must be logged in to comment on this post.
-
- 오세용
- 2001.02.15 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 김창현
- •
- 2001.02.15 01:34
- 2 COMMENTS
- /
- 0 LIKES
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Index: Integer; begin SelectedText :=''; if Button = mbLeft then with Sender as TlistBox Do = 0 then begin ...-
전형식•2001.02.15 07:41김창현 wrote: > procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; > Shif...
-
광란자•2001.02.15 01:45그냥 ListBox1.Item..... 이렇게 쓰시든지 아니면 (Sender as TlistBox).Item.... 이렇게 쓰시면 됩니...
-
- 이선희
- •
- 2001.02.15 01:04
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.15 01:48Standard Component 에 그러니까 판넬콤포넌트의 옆에 옆에 옆에 ScrollBar 콤포넌트가 보이는 군여.......
-
- 전승헌
- 2001.02.15 01:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 써니
- •
- 2001.02.15 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.02.15 01:28써니 wrote: > insert into 를 하는데 제데로 값들이 다 들어가 있는데.. > execsql문에서 > > field...
-
- 누리
- •
- 2001.02.15 00:57
- 2 COMMENTS
- /
- 0 LIKES
-
초보자•2001.02.15 01:59누리 wrote: > 먼저 답변감사합니다 > 그런데 전 왕초보랍니다. > 좀 어렵네요 > > 테이블우편번호...
-
바람개비•2001.02.15 01:58길이가 고정되어 있다면 그냥 간단(무식?)하게 s:=tstable.fieldbyname('zip').asstring; t:=copy(s,1,3)...
-
- 유상현
- 2001.02.15 00:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 곽종철
- 2001.02.15 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 강인규
- •
- 2001.02.15 00:48
- 6 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.02.15 02:01
-
kylix•2001.02.15 03:44
-
바람개비•2001.02.15 08:19
-
kylix•2001.02.15 10:43
-
바람개비•2001.02.15 23:41
-
kylix•2001.02.16 03:12
-
- 김오성
- 2001.02.15 00:17
- 0 COMMENTS
- /
- 0 LIKES
-
-
광란자•2001.02.15 02:11델 초보 wrote: > 회원관리를 만들려구 하는데... > 회원 로그온을 어떻게 해야 하나여..... > 방법좀 ...
-
-
- 이승근
- •
- 2001.02.14 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.15 02:17백문이 불여일행 이란 말이 있져~~!! 한 번 직접 바꿔가며 찍어 보세여...쩝
-
- 문창배
- •
- 2001.02.14 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.15 04:38둘다 강제로 형변환을 하는것인데 as연산자는 같은형이거나 자손형이 아니면 예외를 일으킵니다. 직접적으...
-
- tk
- •
- 2001.02.14 23:08
- 1 COMMENTS
- /
- 0 LIKES
-
서록•2001.02.14 23:38http://www.borland.com/techpubs/interbase/ 에 가시면 문서를 보실 수 있습니다. 즐거운 코딩 되시길...
-
- 크리스탈
- •
- 2001.02.14 22:56
- 4 COMMENTS
- /
- 0 LIKES
-
제덕모•2001.02.14 23:55Query1의 프로퍼티중에 RequestLive라는 부분이 있습니다. True로 되어있나 확인해보세요. TUpdateSQL...
-
크리스탈•2001.02.15 00:06감사합니다. 하지만 그렇게하니까... 'capability not supported'라는 메시지가 뜨는군요. 다시한번 답...
-
deukmo•2001.02.15 02:22지금하고 있는 프로젝트를 저한테 보내보세요. 크리스탈 wrote: > 감사합니다. > 하지만 그렇게하...
-
크리스탈•2001.02.16 00:09deukmo wrote: > 지금하고 있는 프로젝트를 저한테 보내보세요. > > > > 크리스탈 wrote: > > 감...
-
-
신태균•2001.05.15 22:15아마 ocx 문제일겁니다. 소스내에 mscomm32.ocx를 사용하는 프로그램을 로딩시킬때 에러가 생기는 거로 사...
-
-
- 박선희
- •
- 2001.02.14 22:03
- 1 COMMENTS
- /
- 0 LIKES
-
윤재용•2001.02.28 02:23박선희 wrote: > DBGrid 컬럼의 PickList에 내용을 추가하였습니다. > > List내용중 하나를 선택하면 U...
-
- 이승근
- •
- 2001.02.14 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.02.14 23:38데이타가 같을때 안 나타낼려면 코딩으로 처리하는 수밖에 없어요.. procedure TForm1.ReporeBeforePrin...
-
- 델파이걸
- •
- 2001.02.14 21:15
- 2 COMMENTS
- /
- 0 LIKES
-
제덕모•2001.02.14 23:41똑같은 테이블 구조를 가지는 임시테이블을 만들어 GROUP BY 를 통한 중복값들을 하나씩만 걸러내어 새...
-
델파이걸•2001.02.15 00:47제덕모 wrote: > 똑같은 테이블 구조를 가지는 임시테이블을 만들어 > GROUP BY 를 통한 중복값들을 하나...
-
- 송호열
- •
- 2001.02.14 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.02.14 23:34델파이는 Objective Pascal문법을 사용하고 있으며, Objective Pascal은 기본적으로 Pascal의 문법을 사용...
> procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> var
> Index: Integer;
>
> begin
> SelectedText :='';
> if Button = mbLeft then
> with Sender as TlistBox Do <===== 요기
> begin
> index := ItemAtPos(Point(X,Y),True);
> if index >= 0 then
> begin
> Begindrag(false);
> SelectedText := Items.Strings[Index];
> end;
> end;
> end;
>
> 위 소스를 보면.. with sender as Tlistbox do 란 문장이 있습니다
> 보통 비베에서 보면.. 저건 Sender 은 Tlistbox 다.. 이런 문장일텐데..
> 그렇다면.. With Serder 을 없애고 Sender as Tlistbox 를 써 준다음...
> 밑에 부분 부터..
> procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> var
> Index: Integer;
>
> begin
> SelectedText :='';
> if Button = mbLeft then
> Sender as TlistBox <===== 요기
> begin
> index := Sender.ItemAtPos(Point(X,Y),True); <=== 요기
> if index >= 0 then
> begin
> Begindrag(false);
> SelectedText := Sender.Items.Strings[Index]; <=== 요기
> end;
> end;
> end;
>
> 이런 식으로 해 줘도 돼야 하지 않나요..??????
> 제가 오늘 처음 델파이를 해 봐서.. With문에서 Sender as TlistBox 가 뭘 뜻하는건지..
> 잘 모르겠네요.. 보통 책의 With문 예제를 봐도.. 걍 With 이름 do 이런 식으로 나와 있거든요... 델파이에선 Sender as Tlistbox 가 뭘 뜻하는건지..
> 그리고 맨 위의 소스를 With 문을 없애고 똑같은 기능을 하게 어떻게 바꿀수 있나요..
>
WIth문은 말그대로 TypeCasting 하는 기능을 합니다.
Sender로 OOP에서 델파이의 콤퍼넌트의 최상위 Class인 TObject로 전달 함수에 전달된 것을 특정 Component로 치환 하는것이지요.
Component의 프로퍼티들을 바로 쓸려면 반드시 맞는 Component로 typecast 해줘야 합니다.
그리고 Sender As.. 는 넘겨받은 Object가 ..이면 하고 넘겨온 Component가 특정 Component인지를 검사하는 역활도 합니다.
가령 ListBox 에서 이벤트를 호출했는데 엉뚱한것으로 쓰는것을 방지하는것입니다.
도움이 되셨나요??