Как такое вот, реализовать как на картине

[HellMercenariess]

Посмотрите вот:
таскатьМыш.JPG

я бы назвал это подставками с хранилищем текста.

Ну компоненты таскать по форме умею, а вот как дать им возможность "осесть", закрепится на подставках??

[northener]

Сообщение от HellMercenariess

как дать им возможность "осесть", закрепится на подставках?

Переведи.

[HellMercenariess]

Сообщение от northener

Переведи.

Нужно перемещать текст в синих оболочках точно в пространство над разделенными полосками, а полоски должны иметь скрытый текст и там должны быть события OnMouseUp или OnDragDrop.

Как это можно реализовать??

[Аватар]

procedure TForm1.ShapeDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:=TObject(Source) is TLabel;
end;

procedure TForm1.ShapeDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (TShape(Sender).Tag=0) and (Source is TLabel) then begin
    TLabel(Source).Left:=TShape(Sender).Left+((TShape(Sender).Width-TLabel(Source).Width) div 2);
    TLabel(Source).Top:=TShape(Sender).Top+((TShape(Sender).Height-TLabel(Source).Height) div 2);
    TShape(Sender).Tag:=1;
  end;
end;

[HellMercenariess]

Для собственного пользования после создания компонента на базе Шэйп ваш вариант конечно сгодится, но а так возникает старая проблема

Дело в том что на картинке пользователь таскает синие части мышкой, им пользователям так понятней наглядней а в DragMode = dmAutomatic, Sс_DragMove не получится.