Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Просто супер лёгкая вещица!!! Компанент и мышь 
:(
    Опции темы
Pakshin A. S.
  Дата 15.3.2003, 04:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Код

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Таки образом можно таскать мышью любые визуальные коипоненты безо всякого труда!!! biggrin.gif
PM   Вверх
Dexter
Дата 15.3.2003, 04:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Экс. модератор
Сообщений: 1562
Регистрация: 2.7.2002
Где: Москва, Бирюлево

Репутация: 1
Всего: 4
Я такой фигней обычно окна без Caption'а тоскаю


--------------------
The only thing you really know about me is...
...that's all you'll ever know
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 15.3.2003, 04:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Прошу пращения за мою опечатку. Конечно не "компанент", а "компонент".
PM   Вверх
Pakshin A. S.
Дата 15.3.2003, 04:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
У меня где-то была процедурка, которая таскает формы не за загаловок, написанная другим способом, чем этот; как-нибудь напишу...
PM   Вверх
December
Дата 15.3.2003, 04:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
Цитата(Pakshin @ 14.3.2003, 19:45)
Прошу прАщения...

ПрАщаем.
wink.gif


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Vit
Дата 15.3.2003, 05:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Вообще-то это из нашего FAQ...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Baa
Дата 15.3.2003, 06:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12
Цитата(Pakshin @ 15.3.2003, 04:48)
У меня где-то была процедурка, которая таскает формы не за загаловок, написанная другим способом, чем этот; как-нибудь напишу...

http://forum.vingrad.ru/index.php?act=ST&f..._nchittest&st=0


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Medved
Дата 16.3.2003, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
2Pakshin A. S. спасибо за интересную информацию, но убедительно прошу в следующий раз, прежде чем что-то публиковать в таком роде, поискать его в нашем FAQ. Заранее благодарен.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
Pakshin A. S.
Дата 16.3.2003, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Будет сделано...
PM   Вверх
dr.ZmeY
Дата 16.3.2003, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Политолог
****


Профиль
Группа: Участник Клуба
Сообщений: 3892
Регистрация: 26.3.2002
Где: ..::STALINGRAD::. .

Репутация: нет
Всего: 60
Можно и так, правда более заморочено... но всё равно...

Код

procedure TEditZag.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   Moving:=True;
end;

procedure TEditZag.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
   Moving  := False;
end;

procedure TEditZag.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
   if Moving = True then begin
       Panel1.Left:=Panel1.Left + X;
       Panel1.Top:=Panel1.Top + Y;
   end;
end;


smile.gif smile.gif smile.gif
Есть ещё пара способов объекты таскать smile.gif, но мне их влом вспоминать...


--------------------
Мой блог в ЖЖ
PM MAIL WWW ICQ Skype   Вверх
Pakshin A. S.
Дата 20.3.2003, 02:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Следующая штучка позволяет перетаскивать форму не за заголовок путём обмана: форма будет думать, что её таскают за заголовок.
Код

TForm1 = class (TForm)
...
private
 procedure TestRun(var M: TWMNCHitTest); massage wm_NCHitTest;
end;

...
procedure TForm1.TestRun(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient
 then
  MResult:=htCaption;
end;
...
end.


Просто, но сердито...
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0923 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.