работа с SaticText

[Софья1992]

помогите пожалуйста с SaticText.
дан этот компонент на форме и нужен код,позволяющий перетаскивать его мышкой

[Прик]

И снова здрасьте.
У StaticText создаем все три процедуры мышиных событий, в которых прописываем такой код:

var
  P : TPoint;   //доступные из всех нижележащих процедур переменные
  Move : Boolean;

procedure TForm1.StaticText1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if not Move then Exit;  //компонент перемещается, если задан режим "нажата кнопка", иначе ничего не делаем 
  //метод SetBounds меняет координаты левого верхнего угла компонента на величину сдвига курсора мыши,
  //относительно запомненных ранее (в MouseDown). 
  with (Sender as TStaticText) do
    SetBounds(Left + X - P.X, Top + Y - P.Y, Width, Height)  
end;

procedure TForm1.StaticText1MouseDown(Sender: TObject;
                  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbLeft then exit;  //если нажата не левая кнопка мыши, то ничего не делаем (Exit)
  P := Point(X, Y);   //запоминаем координаты курсора в момент, когда щелкнули по компоненту
  Move := True;   //переключаем флаг режима - "левая кнопка нажата"
end;

procedure TForm1.StaticText1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //отпуская кнопку, переключаем "режим", чтобы перемещение курсора
  //с не нажатой кнопкой  не вызывало перемещение компонента
  Move := False;  
end;

[Софья1992]

хорошо,спасибо
а можно комментарии к строчкам?
а то не все понятно((

[Софья1992]

можно еще узнать про эти строки?

P : TPoint;
Move : Boolean;
with (Sender as TControl) do

[Прик]

TPoint - тип данных такой есть в дельфи. Состоит из двух полей:

TPoint = record
  X, Y : Integer;
end;

Конструкцию:

   with (Sender as TControl) do SetBounds(...)

Чтобы не мучиться, можно заменить на два оператора:

    StaticText1.Left := StaticText1.Left + X - P.X;
    StaticText1.Top := StaticText1.Top + Y - P.Y;

--------------
Оператор with позволяет сокращать текст программы, указывая квалификатор стурктуры, или объекта один раз после этого оператора.
Для примера. С оператором with:

  with StaticText1 do
    SetBounds(Left + X - P.X, Top + Y - P.Y, Width, Height);

Без этого оператора нужно приписывать каждому методу имя объекта:

StaticText1.SetBounds(StaticText1.Left + X - P.X, StaticText1.Top + Y - P.Y, 
            StaticText1.Width, StaticText1.Height);