Q&A

  • 헉헉~ 안들어가요 --;
지금껏 해본 질문중 가장 멍청한 질문입니다. -.-;

오픈픽쳐다이얼로그박스에서 파일을 열어 바로

리스트박스에 집어넣고 싶습니다. 안된다구요?



var

img:TPicture;



procedure TForm1.Button1Click(Sender: TObject);

begin

if OPDG.Execute then

begin

img:=TPicture(OPDG.FindComponent(OPDG.FileName));

LSTB.Items.AddObject('Mr.Q', img);

end;

end;



2  COMMENTS
  • Profile
    최용일 2000.07.26 12:33
    안녕하세요. 최용일입니다.



    FindComponent메소드로 이미지를 찾는것은 좀 이상하군요. TOpenDialog에서 이미지를



    보여주는 곳은 판넬(TPanel)입니다. 이름은 없구요. FindComponent로 찾기가 불가능



    하죠. FindWindow나 FindWindowEx로는 찾을 수 있겠지만 다이얼로그가 닫히면 거기에



    있는 모든 객체가 Free됩니다. 그러므로 AddObject로 넣어보았자 nil이 들어갈뿐입니다.



    아래와 같이 해보세요. 그럼 제대로 들어갑니다. 이걸 보여주는 것은 리스트박스의



    OnDrawItem이벤트를 사용하시면 됩니다...



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    if OPDG.Execute then

    begin

    Img := TPicture.Create;

    Img.LoadFromFile(OPDG.FileName);

    LSTB.Items.AddObject('Mr.Q', Img);

    end;

    end;



    ^^ 항상 즐코하세요.



    Mr.Q wrote:

    > 지금껏 해본 질문중 가장 멍청한 질문입니다. -.-;

    > 오픈픽쳐다이얼로그박스에서 파일을 열어 바로

    > 리스트박스에 집어넣고 싶습니다. 안된다구요?

    >

    > var

    > img:TPicture;

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > if OPDG.Execute then

    > begin

    > img:=TPicture(OPDG.FindComponent(OPDG.FileName));

    > LSTB.Items.AddObject('Mr.Q', img);

    > end;

    > end;

    >

  • Profile
    parkisu 2000.07.26 10:39
    Mr.Q wrote:

    > 지금껏 해본 질문중 가장 멍청한 질문입니다. -.-;

    > 오픈픽쳐다이얼로그박스에서 파일을 열어 바로

    > 리스트박스에 집어넣고 싶습니다. 안된다구요?

    >

    > var

    > img:TPicture;

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > if OPDG.Execute then

    > begin

    > img:=TPicture(OPDG.FindComponent(OPDG.FileName));

    > LSTB.Items.AddObject('Mr.Q', img);

    > end;

    > end;

    >



    혹 OpenDialog의 FileName때문이 아닐런지...

    ShowMessage(OPDG.FileName)해보세요. FileName에는 경로명이 포함되어 있걸랑요.

    ExtractFileName(OPDG.FileName)로 해보시면 어떨런지...

    • 어린왕자
      2000.07.26 18:57
      델초보 wrote: > 파일의 경로에서 파일의 이름만 따내는 방법이 없을까여? > > 파일명만 쓰게해야합니...
    • 어린왕자
      2000.07.26 19:06
      사바리.. wrote: > 하요 좋은 아침임당...^^ > > 질문 내용을 아래의 쿼리값을 스트링 그리드에 나타낼...
    • 타락천사
      2000.07.26 19:09
      안녕하세여.. 타락임다..^^ 질문보고 함 만들어 봤어여... 스트링그리드에 라인단위로 데이터를 넣는...
    • 사바리..
      2000.07.26 20:00
      헐 제나름대로 코딩했는디 ㅠ.ㅠ 이건 어린왕자님이 주신 소스도 아니고 타락님이 주신 소스도 아님...
    • 타락천사
      2000.07.26 21:03
      안녕하세여..타락임다..^^ 전 DBGrid를 써서..뤼....^^;;; 안돌려보고 코드를 달아봤습니다.. 아마 ...
    • 사바리..
      2000.07.26 21:13
      타락천사 wrote: > 안녕하세여..타락임다..^^ > > 전 DBGrid를 써서..뤼....^^;;; > > 안돌려보고 ...
    • 김연기
      2000.07.26 20:20
      김연기 wrote: > DBGrid 에서 State가 Browse일때 한글을 입력하면 > 처음 문자가 보이지 않습니다. > E...
    • webcome
    • 2000.07.26 13:31
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 김희중
      2000.07.29 19:35
      말씀하시는 부분은 Lookup Field를 이용하시는것 보다는 DBLookup ComboBox를 이용하시는 것이 더 나을것 ...
    • 사바리..
      2000.07.26 19:14
      하요 초보중의 초보 사발임당.. 지가 하고 있는 내용 하구 비슷해서리 초보가 나선다구 욕하쥐 마시고.....
    • parkisu
    • 2000.07.26 10:33
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2000.07.27 04:50
      안녕하세요. 최용일입니다. 재귀호출하실때 TTreeView.Items.AddChild메소드를 사용하시면 서브노드로 ...
    • Mr.Q
    • 2000.07.26 10:13
    • 2 COMMENTS
    • /
    • 1 LIKES
    • 최용일
      2000.07.26 12:33
      안녕하세요. 최용일입니다. FindComponent메소드로 이미지를 찾는것은 좀 이상하군요. TOpenDialog에서 ...
    • parkisu
      2000.07.26 10:39
      Mr.Q wrote: > 지금껏 해본 질문중 가장 멍청한 질문입니다. -.-; > 오픈픽쳐다이얼로그박스에서 파일을 ...
    • 권오정
    • 2000.07.26 07:59
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 허춘
      2000.07.26 10:02
      권오정 wrote: > string(20000725)를 July,25,2000으로 > > 어떻게 하면 되는지 답변부탁드립니다 > ...
    • 권오정
      2000.07.26 10:17
      그런데, 님의 말씀대로 하니까 7월,25,2000으로 나옵니다 제가 원하는건 july,25,2000입니다 다시한번...
    • 허춘
      2000.07.26 12:34
      권오정 wrote: > 그런데, > 님의 말씀대로 하니까 > 7월,25,2000으로 나옵니다 > 제가 원하는건 > jul...
    • Mr.Q
      2000.07.26 07:53
      김성희 wrote: > 안녕하세요. > Delphi 5.0 bible 의 독자인 김성희 입니다. > 다름이 아니고 질문할게 ...
    • webcome
    • 2000.07.26 06:33
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 사바리..
      2000.07.26 06:47
      webcome wrote: > // Access violation at address xxxxxxxxxx in module > 'VCL40.BPL' Read of addre...
    • 최델파
    • 2000.07.26 04:24
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 임형호
      2000.07.26 04:48
      최델파 wrote: > 델파이를 이제 막 시작하고 있어요 > 숫자 120,300 일 경우 -> 일십이만삼백원으로 변환...
    • 정연
    • 2000.07.26 03:52
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 어린왕자
      2000.07.26 04:43
      정연 wrote: > Access violation at address 87DEE138. Read of address 87DEE138. > > 계속 이런 에러...
    • 정연
      2000.07.26 18:28
      어린왕자 wrote: > 정연 wrote: > > Access violation at address 87DEE138. Read of address 87DEE138. ...
    • Mr.Q
    • 2000.07.26 03:23
    • 7 COMMENTS
    • /
    • 0 LIKES
    • Mr.Q
      2000.07.26 07:33
    • 김영해
      2000.07.26 04:14
    • Mr.Q
      2000.07.26 05:45
    • 타락천사
      2000.07.26 10:17
    • 최용일
      2000.07.26 11:04
    • 타락천사
      2000.07.26 18:27
    • 최용일
      2000.07.26 06:16
    • tommy
    • 2000.07.26 01:56
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 노현철
      2000.07.26 04:19
      tommy wrote: > 다시금 질문을 드립니다. > 테이블에 3개의 데이타가 있습니다. > > 성명 급여 ...
    • 최석기
      2000.07.26 02:17
      tommy wrote: > 다시금 질문을 드립니다. > 테이블에 3개의 데이타가 있습니다. > > 성명 급여 ...
    • coolling
      2000.07.26 02:05
      tommy wrote: > 다시금 질문을 드립니다. > 테이블에 3개의 데이타가 있습니다. > > 성명 급여 ...
    • Mr.Q
      2000.07.26 03:17
      사바리.. wrote: > > 제목 그대로 임당.. 어떻게 해면 스트링 그리드에 쿼리값을 넣을 수있나엽.. > ...
    • 화랑
      2000.07.26 03:19
      먼저 Regsvr32를 이용해서 메모리에서 내리고... 웹서버를 멈추고.. 지우고 카피하고... 웹서버를 ...
    • 구본경
      2000.07.26 07:53
      답변 감사합니다. 화랑 wrote: > 먼저 Regsvr32를 이용해서 메모리에서 내리고... > > 웹서버를 멈...
    • 구본경
      2000.07.26 07:52
      화랑 wrote: > 먼저 Regsvr32를 이용해서 메모리에서 내리고... > > 웹서버를 멈추고.. 지우고 카피...
    • 최용일
      2000.07.26 06:22
      안녕하세요. 최용일입니다. 흠~ 무슨 소린지... 이벤트는 메소드와는 달리 오버라이드가 되지않는데... ...