Работа с массивами объектов

[Bronya]

Здраствуйте! Помогите пожалуйста, в Делфи я создаю одно приложение которое содержит кнопку при нажатии на которую создается 5 лейболов в в виде массива. И у каждый из них есть процедуры Нажатия, отпускания и перемещения этих лейбелов(что-то типо Зацепи и тащи). Вопрос встал как узнать на какой из этих лейболов я нажал т.е. с кем мне сейчас работать.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    lab:array[1..5] of TLabel;
    i:integer;
        Procedure LabMDown (Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer) ;
      Procedure LabMUp (Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer) ;
      Procedure LabMMove (Sender: TObject; Shift: TShiftState; X,
  Y: Integer) ;

    end;

var
    Form1: TForm1;
    f:boolean;

implementation

{$R *.dfm}

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    f:=false;
     Label1.Font.Color:=clBlack;
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    f:=True;
     Label1.Font.Color:=clRed;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if f then begin
       label1.Top:=label1.Top+y-Label1.Height div 2;
       Label1.Left:=x+Label1.Left-Label1.Width div 2;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   for i:=1 to 5 do
   begin
   Lab[i]:=Tlabel.Create(self);
   Lab[i].Parent:=self;
   lab[i].Name:='Lab'+intToStr(i);
   lab[i].Caption:=lab[i].Name;
   lab[i].OnMouseDown:=LabMDown;
   lab[i].OnMouseMove:=labMMove;
   lab[i].OnMouseUp:=LabMUp;
   lab[i].Font.Size:=16;
   lab[i].Top:=i*50;
   end;

end;

procedure TForm1.LabMUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    f:=false;

end;

procedure TForm1.LabMDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    f:=True;
end;

procedure TForm1.LabMMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if f then begin

    end;
end;
end.

Получается нужна процедура LabMMove. Спасибо.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ArtGrek]

Label1, Label2, Label3 можно в общем описать как TLabel(Sender)
тоесть, если процедура вызвана Label3 то в параметре Sender храница именно она

пример:

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if f then begin
TLabel(Sender).Top:=TLabel(Sender).Top+y-TLabel(Sender).Height div 2;
TLabel(Sender).Left:=x+TLabel(Sender).Left-TLabel(Sender).Width div 2;
end;
end;

[phomm]

(моё имхо, основаное на смутных воспоминаниях) вроде, кастовать tlabel(sender) не очень правильно, лучше кастовать (sender as tlabel)

упд. хотя для данной задачи не особо принципиально

[Bronya]

Премного благодарен!!!!!
Теперь можно дальше продолжать работать!!!

[belyjj]

phomm а как это кастовать так? У меня такая проблема: массив из стринггридов, и нужно выделять ячейку процедурой

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (gdSelected in State) then        //ÿ÷åéêà, êîòîðóþ õîòèì çàêðàñèòü
  with TStringGrid(Sender).Canvas do
   begin
     Brush.Color:=clGreen;           //öâåò çàêðàñêè
     FillRect(Rect);
     //Font.Size:=Font.Size+2;
     //Font.Color:=clYellow;
     TextOut(Rect.Left+2,Rect.Top+2,TStringGrid(Sender).Cells[ACol,Arow]);
   end
  else
   with TStringGrid(Sender).Canvas do
   begin
     Brush.Color:=clWhite;           //öâåò çàêðàñêè
     FillRect(Rect);
     //Font.Size:=Font.Size+2;
     //Font.Color:=clYellow;
     TextOut(Rect.Left+2,Rect.Top+2,TStringGrid(Sender).Cells[ACol,Arow]);
   end
end;

но выделение работает только в первом стринггриде , а в массиве нет

[phomm]

У тебя скорее всего дело не в касте (typecast), а просто надо всем гридам на OnDrawCell поставить вызов твоей этой StringGrid1DrawCell

про кастовать я имел ввиду (я смутно припоминаю, что что-то такое в виде рекомендации читал в мануалах), что способ с (sender as что-то) безопаснее , чем что-то(sender), т.е. в твоем случае поидёт замена TStringGrid(sender) на (sender as TSstringGrid)