Mam problem z przeciąganiem nowo-utworzonych obiektów.
Obiekt to Panel z małym okrągłym "guziczkiem" po prawej stronie... no i z labelem na środku.
Najpierw tworzę instancję z tej klasy:
[syntax=delphi]TMojPanel=class(TPanel)
private
{brak}
public
pLiczba: Integer;
pNapis: TLabel;
pFigura: TShape;
constructor Create(Owner: TComponent); override;
end;[/syntax]
Następnie inicjalizuje...
[syntax=delphi]constructor TMojPanel.Create(Owner: TComponent);
begin
inherited Create(Owner);//inicjacja elementow dziedziczonych
Color:=clWhite;
Width:=120;
Height:=25;
Left:=przes;
pFigura:=TShape.Create(Self);
pFigura.Parent:=Self;
pFigura.Width := 12;
pFigura.Height := 12;
pFigura.Shape:=stCircle;
...
pNapis:=TLabel.Create(Self);
pNapis.Parent:=Self;
pNapis.Caption:=InttoStr(pLiczba);
...
end;[/syntax]
podczas kreowania, ustawiam mojemu Panelowi właściwość DragMode
[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject);
begin
MojObiekt:=TMojPanel.Create(Self);
MojObiekt.Parent:=Self;
MojObiekt.DragMode := dmAutomatic;
end;[/syntax]
Na koniec, podczas wystąpienia zdarzenia DragOver element powinien być przenoszony...
[syntax=delphi]procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Sender is TMojPanel then
begin
(Sender as TMojPanel).Left := X;
(Sender as TMojPanel).Top := Y;
end;
end;[/syntax]
Jednak nic się nie dzieje :/
Nadmienię tylko, że na typowych kontrolkach które posiadają tokowe zdarzenie wszystko działa :/
Coś robię źle?Statystyki: Napisane przez starosta — 29 paź 2017, o 16:17
]]>