Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Как перетаскивать форму за какой-нибудь компонент? 


-=GaLaN=-   (2002-03-24 19:19) [0]

Пожалуйста, все-таки подскажите сабж!



ppcat   (2002-03-24 19:41) [1]

За какой-нибудь, значит и за имидж можно.

procedure TfmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SysCommand, $F012, 0);
end;



-=GaLaN=-   (2002-03-24 19:54) [2]

А чтобы перетаскивание работало только при нажатом Ctrl?



stexen   (2002-03-24 19:57) [3]

procedure TfmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If ssCtrl in Shift then
begin
ReleaseCapture;
Perform(WM_SysCommand, $F012, 0);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.024 c
3-9413            tovSuhov              2002-03-11 09:27  2002.04.04  
Понятие


14-9621           Зачиняев Сергей       2002-02-22 15:28  2002.04.04  
К вопросам о терминологии, русском языке и воспитании.


3-9429            Skyter                2002-03-07 13:46  2002.04.04  
HELP!!! Помогите. Есть база данных При выполнении запроса выдается ошибка см. msg


1-9440            Graf57                2002-03-23 13:25  2002.04.04  
Как пользоваться Tcanvas, TPen и т.п?


1-9566            DenKop                2002-03-24 15:14  2002.04.04  
Извлечение иконок