Q&A

  • [질문] 동적으로 레이블, 이미지를 생성후 동시에 드래그...
박성준입니다.

동적으로 레이블과 이미지를 각각 생성후
with TLabel.Create( Self ) do
begin
.
.
.
end;

with TImage.Create( Self ) do
begin
.
.
.
end;

생성된 레이블과 이미지를 동시에 드래그를 구현하려고 합니다.
하나씩은 따로 이벤트가 부여가능한걸로 확인되었는데, 동시에 여러컴포넌트를
드래그하는것은 구현방법을 몰라서 이렇게 질문드립니다.

아시는 고수님들의 명쾌한 답변 부탁드립니다.
꾸벅~
이 게시물을
1  COMMENTS
  • Profile
    steps • 2008.10.09 21:53
    제 경우에는 Acdsee비슷하게 패널에 이미지와 레블을 올려놓은 컴포를 만들었댔는데요 이미지와 레블에 dragover:=Dodragover해주고

    procedure TMyView.DoDragOver(Sender, Source: TObject; X, Y: Integer;
    State: Controls.TDragState; var Accept: Boolean);
    begin
    if sender is timage32 then
    Self.DragOver(Source, TImage32(Sender).Left + X, TImage32(Sender).Top + Y, State, Accept)
    else
    Self.DragOver(Source, TLabel(Sender).Left + X, Tlabel(Sender).Top + Y, State, Accept);
    end;

    으로 처리 해줬습니다. dragdrop도 우와 같은 방법으로 만들었구요 물론 컴포의 드래그 드롭이 제대로 됩니다. 부족한 코드이지만 도움이 되셧기를...

←First Page
107 108 109 110 111 112 113 114 115 116
Last Page→
한델 로그인 하기