Динамические компоненты. Уже не могу..

[Ky3Heu,]

Проблема в том, что мне необходимо для динамически созданных компонентов определить 1) Имя этого компонента. 2) Создать возможность перетаскивать эти компоненты по PAgeControl. Пробовал так:

var 
im:TImage;
    tab:TTabSheet;
    im_nam,im_path,tab_nam:String;
    i,im_cod,tab_cod:Integer;
begin
PiOBJ.Open;
OBJ.Open;
im:=TImage.Create(PageControl1.ActivePage);
im.Parent:=PageControl1.ActivePage;
im.OnClick:=Button1Click;
im.PopupMenu:=Obj_Menu;
im.Top:= 100;
im.Left:=100;
im.Name:='Im5555';
end;

на OnClick вешал

{begin
for i:=0 to PageControl1.ActivePage.ComponentCount-1 do
begin
    if (PageControl1.ActivePage.Components[i] is Timage)=Focused then
    begin
    im_nam:=(PageControl1.ActivePage.Components[i] as TImage).Name;
    Form1.Caption:=im_nam;
    end;
end;}

Но это не сработало Попробовал так:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
  c: TControl;
begin
  GetCursorPos(p);
  p := ScreenToClient(p);
  c := ControlAtPos(p,false,true);
  Form1.caption := inttostr(p.x)+', '+ inttostr(p.y)+' - ';
  if c<> nil then Form1.caption :=c.Name;
end;

Это работает, но имя правильное компонента я получаю, если компонент создан на Form1. Иначе выдает PageControl1. А должен im5555.
Уже не знаю, что делать?? Проект загибается, не успев начаться, а мне еще голову ломать над тем, как эти имаджи потом таскать по PageControl. Кстати имаджи нужно создавать ИМЕННО на PageControl.

[JTG]

Сделай обработчик типа "таскалка для панелей"

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
  Form1.Caption := (Sender as TComponent).Name;

  ReleaseCapture;
  (Sender as TPanel).Perform(WM_SYSCOMMAND, $F012, 0);
end;

И потом назначай его всем остальным панелям (например).
С потомками TGraphicControl WM_SYSCOMMAND не прокатит, там надо мудрить (запоминать координаты миши, обрабатывать MouseDown, MouseUp...).
Готовый "таскающийся TImage" есть тут http://programmersforum.ru/showpost....0&postcount=12

[Ntlegend]

листинг первогго поста.. im.Name:='Im5555'; нельзя задавать статическое имя.. или при создании второго компонента будет ошибка.. напишетт мол компонент с таким именем уже существует..
листинг второй попробуй исправить на такое:

begin
for i:=0 to PageControl1.ActivePage.ComponentCount-1 do
  begin
    if (PageControl1.ActivePage.Components[i] is Timage) then
      begin
        im_nam:=(PageControl1.ActivePage.Components[i] as TImage).Name;
        Form1.Caption:=im_nam;
      end;
  end;

дальше.. шобы перетаскивать компоненты кинь на форму какой нить статический компонент и напиши процедуры перетаскивания для него (тем полно как это сделать).. потом компоненту ту можешь удалить.. главное оставь процедуры и при динамическом создани компонента просто присваивай их ему..

  private
    procedure MyImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MyImageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure MyImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
***
var 
im:TImage;
    tab:TTabSheet;
    im_nam,im_path,tab_nam:String;
    i,im_cod,tab_cod:Integer;
begin
PiOBJ.Open;
OBJ.Open;
im:=TImage.Create(PageControl1.ActivePage);
im.Parent:=PageControl1.ActivePage;
im.OnClick:=Button1Click;
im.PopupMenu:=Obj_Menu;
im.Top:= 100;
im.Left:=100;
im.Name:='Im5555';
im.OnMouseDown:=MyImageMouseDown;
im.MouseMove:=MyImageMouseMove;
im.MouseUp:=MyImageMouseUp;
end;

ну.. вроде все.. и писать свою компоненту не нада