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

Тема в разделе "Delphi - FAQ", создана пользователем -, 2 дек 2004.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    я чайник!!!прошу подсказать как в делфи можно ПЛАВНО передвигать обьекты с места на место!!! очень надо!!! :lol:
     
  2. Barmutik

    Barmutik Гость

    Репутация:
    0
    Какие конкретно объекты? Визуальные контролы или нарисованные Вами элементы внутри TPaintBox?
     
  3. Гость

    Репутация:
    0
    большое пасибо за ссылки, ато прочитал несколко учебников а эта тема почему-то не попалась!!! ;) ;)
     
  4. ZENsan

    ZENsan Гость

    Репутация:
    0
    Код (Text):
    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
     
  5. caecus

    caecus Гость

    Репутация:
    0
    люди не совсем разобрался с ооп, в чем различие (в данном случае С++) от С? ;)
     
  6. Barmutik

    Barmutik Гость

    Репутация:
    0
    Тема не для этого вопроса .. создай свою тему.. если с таким вопросом то в топике Программирование на С++
     
Загрузка...
Похожие Темы - помогите чайнику
  1. Fox
    Ответов:
    0
    Просмотров:
    2.326
  2. Sa1nt
    Ответов:
    3
    Просмотров:
    61
  3. Amfion
    Ответов:
    3
    Просмотров:
    91
  4. number27
    Ответов:
    0
    Просмотров:
    92
  5. Rina
    Ответов:
    0
    Просмотров:
    122
Статус темы:
Закрыта.

Поделиться этой страницей