• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

помогите чайнику

  • Автор темы Автор темы Guest
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

я чайник!!!прошу подсказать как в делфи можно ПЛАВНО передвигать обьекты с места на место!!! очень надо!!! :lol:
 
Какие конкретно объекты? Визуальные контролы или нарисованные Вами элементы внутри TPaintBox?
 
Дабы не нарушать копирайты...





 
большое пасибо за ссылки, ато прочитал несколко учебников а эта тема почему-то не попалась!!! ;) ;)
 
Код:
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TWinControl).Tag:=X shl 16+Y;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TWinControl).Tag:=0;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with (Sender as TWinControl) do
 if Tag<>0 then
  begin
   Left:=Left+x-(Tag shr 16);
   Top:=Top+Y-(Tag and $FFFF);
  end;
end;

Vmesto buttona, ljuboj drugoj control
 
люди не совсем разобрался с ооп, в чем различие (в данном случае С++) от С? ;)
 
Тема не для этого вопроса .. создай свою тему.. если с таким вопросом то в топике Программирование на С++
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab