[Gareth]

Доброе время суток!
Делаю панель запуска типа rocketdock.
Всё на speedbutton`ах.
Кнопки создаю в ран-тайме.

Вот имею я кнопочки в ряд. Мне захотелось одну передвинуть, начинаю двигать, в это время форма мерцает, мигает, называйте как хотите...
Двигаю кнопку так:

Код:

procedure TForm1.SPBMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 
if SPB_L_R = True then
begin

 SPB[SensorTag].Left := Mouse.CursorPos.X -form1.Left ;
end;

Посоветуйте что-то !?)


Форма прилимает к верхнему краю экрана. На Загаловке описан путь и имя файла, появляются эти пути только при наведении на кнопку.
При перетаскивании видать что-то происходит....