Q&A

  • 동적객체에서 동적판넬을 parent로 하는 동적이미지가 사라집니다.
procedure panel1EndDock(Sender, Target: Tobject; x, y: integer);
begin
   panel1.Dragmode:=dmmanual;
   panel1.Manualdock(form2,nil,alnone);
end;

procedure panel1MouseDown(Sender: Tobject; button: TMouseButton; Shift: TShiftState; x, y: integer);
begin
   if panel1.dragmode=dmmanual then begin
      panel1.dragmode:=dmautomatic;
      panel1.ManualDock(nil,nil,alnone);
end;

이 판넬내에 child 인 이미지배열을 출력하고, 판넬에 마우스다운시 도킹모드로 진입하면서 내부에 있던 이미지가 모두 사라집니다.
그리고, 예전 도킹예제가 있었다고 하던데, 혹시 보관하고 계신분 한번만더 올려주시면 감사하겠습니다.
좋은하루 되세요.
0  COMMENTS