That and previous suggestions have worked. Thanks to all responders.
--- In advanced_delphi@yahoogroups.com, David Smith <djsmith_1...@...> wrote:
>
> DragDrop event:
> (Source as TLabel).left;
> (Source as TLabel).top;
>
> DragOver event:
> Accept := (Source as TLabel);
>
> Dave
>
> --- On Mon, 5/24/10, Niel <ralphs...@...> wrote:
>
> From: Niel <ralphs...@...>
> Subject: [advanced_delphi] Drag Drop Labels
> To: advanced_delphi@yahoogroups.com
> Date: Monday, May 24, 2010, 12:36 AM
>
>
>
>
>
>
>
> Â
>
>
>
>
>
>
>
>
>
> I have some labels that I want to reposition on a chart with Drag Drop.
>
> I chose dmAutomatic for the labels.
>
>
>
> As shown below, the code won't compile.
>
> Delphi says that Left and Top are Undeclared for source.
>
> When I replace source with a specific label name the program
>
> runs and the specific label will reposition correctly.
>
>
>
> What should I replace source with in the code below to make
>
> the program work in a generalized way?
>
>
>
> procedure TForm1.Chart1DragDrop(Sender, Source: TObject; X, Y: Integer);
>
> begin
>
> source.left := x;
>
> source.top := y;
>
> end;
>
>
>
> procedure TForm1.Chart1DragOver(Sender, Source: TObject; X, Y: Integer;
>
> State: TDragState; var Accept: Boolean);
>
> begin
>
> accept := true;
>
> end;
>
