Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

Как двигать обьекты?   Найти похожие ветки 

 
Brack   (2005-07-02 20:35) [0]

Можно ли перемещать обьект(к примеру Label) в ходе работы программы, изменив при этом определенные свойства?


 
begin...end ©   (2005-07-02 21:07) [1]

Можно. См. в справке описание класса TControl: свойств Left и Top, а также метода SetBounds.


 
lookin ©   (2005-07-02 21:09) [2]

А какие свойства?


 
isasa ©   (2005-07-02 22:35) [3]

Таскать форму за метку?

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
----------

Для панели (suPanel) соответственно
procedure TForm1.suPanelMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  suPanel.Perform(WM_SYSCOMMAND, $F012, 0);
end;


 
isasa ©   (2005-07-02 22:39) [4]

Да!
Свойство, suPanel должно быть
DragMode:=dmManual


 
isasa ©   (2005-07-02 22:41) [5]

Да! :))))

OnMouseDown:=TForm1.suPanelMouseDown


 
Brack   (2005-07-05 00:03) [6]

Вот сам решил эту задачку, оказалось все просто:

MouseMove(Shift: TShiftState; X, Y: Integer);
begin
 if MDownPl=True then
   begin
     GetCursorPos(p);
     otklX:=p.X-Left;
     otklY:=p.y-top;
     MDownPl:=False;
   end;
 if  MDown=True then
   begin
     GetCursorPos(p);
     Left:=p.X-otklX;
     Top:=p.Y-otklY;
   end;
end;

MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
begin
 MDown:=True;
 MDownPl:=True;
end;

MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
begin
 MDown:=False;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
1-1120461725
Паша
2005-07-04 11:22
2005.07.25
Подключение модулей в uses


4-1113825319
KarpUha
2005-04-18 15:55
2005.07.25
Wav в модем (Очередная)


14-1120076932
nosochek
2005-06-30 00:28
2005.07.25
программа постановки аккордов


1-1120939645
ronyn
2005-07-10 00:07
2005.07.25
Как менять цвет при XP Manifest?


1-1120715570
Ванечка
2005-07-07 09:52
2005.07.25
Перед запуском Windows