Доброе время суток!
Делаю панель запуска типа 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;
Посоветуйте что-то !?)
Форма прилимает к верхнему краю экрана. На Загаловке описан путь и имя файла, появляются эти пути только при наведении на кнопку.
При перетаскивании видать что-то происходит....