|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Мигает\мерцает загаловок формы
Доброе время суток!
Делаю панель запуска типа 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; Форма прилимает к верхнему краю экрана. На Загаловке описан путь и имя файла, появляются эти пути только при наведении на кнопку. При перетаскивании видать что-то происходит.... |