델파이를 처음 접하게 된 초보입니다.
StaticText1: Array of TStaticText;
이렇게 동적배열로 잡아준다음
StaticText1[number] := TStaticText.Create(self);
.
. 속성 지정하고...
.
폼위에 뿌렸습니다.
동적으로 생성한 각 StaticText2 요소들에 드래그 이벤트를 주려고 하는데요.
방법이 막연하네요. 이것저것 시도를 해봤는데 잘 안됩니다.
아직 개념파악이 안되는 초보라 해결책 찾기가 힘드네요.
도움 주시면 감사하겠습니다.
소스를 첨부하였습니다.
실행후 생성한 개체를 클릭하면 위치가 나옵니다. 그런데 드래그는 안되네요..
이벤트에 파라매터로 들어오는 Sender가 이벤트를 발생한놈이니까 이걸 참조하세요...
<!--CodeS-->
procedure TForm1.StMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (ssLeft in Shift) then
begin
TStaticText(Sender).Left := TStaticText(Sender).Left + X - WndPos.x;
TStaticText(Sender).Top := TStaticText(Sender).Top + Y - WndPos.y;
end;
end;
<!--CodeE-->
^^ 항상 즐코하세요...