 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Таскание окошка... 
| Kiber_rat |
|
|||
 MACMANIAC  Профиль Группа: Участник Сообщений: 276 Регистрация: 18.4.2002 Где: Ashdod, Israel Репутация: нет Всего: 9 |
1) Кто подскажет, есть такая проблемка, есть форма, у которой нет рамки, а на всю форму растянута, к примеру, метка, дык как заставить перетаскиваться всё окно, когда я хватаюсь за метку?
2) Кто знает, как сделать приложение которое не будет иметь полоски на таскбаре? И в трее ничего  То есть само окно и всё... Я помню что там нужно через API и чего-то прописать в главном модуле, но в деталях не помню...  -------------------- Best regards! @..@_____Ku6ep =*=______\______KPbIC
|
|||
|
||||
Дата 22.4.2002, 21:41 (
Загрузка ...
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Пожалуйста вопросы по отдельности...
На первый - так сразу не отвечу, попробовать надо На второй: Showwindow(application.handle, sw_hide); -------------------- 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 |
|||
|
||||
| TAPAKAH |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 51 Регистрация: 27.3.2002 Репутация: нет Всего: нет |
Если я правильно понял .. то :
> Как пеpемещать фоpму за Label? ........................................................................ 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; |
|||
|
||||
| anonimous |
|
|||
|
Unregistered |
создай оуно которое не имеет Title и перетаскивается за любое место!
|
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Классно! Так-таки работает...
-------------------- 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 |
|||
|
||||
| Kiber_rat |
|
|||
|
MACMANIAC Профиль Группа: Участник Сообщений: 276 Регистрация: 18.4.2002 Где: Ashdod, Israel Репутация: нет Всего: 9 |
Спасибо, если бы ещё на коментарий к коду разорился
 А то интересно знать что я написал -------------------- Best regards! @..@_____Ku6ep =*=______\______KPbIC
|
|||
|
||||
Дата 22.4.2002, 22:14 (| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Releasecapture - прекратить начатую обработку мышью
Perform - послать сообщение компоненту (примерно то же самое что и SendMessage только уже встоено в VCL), само сообщение и его параметры - посмотри в хэлпе - там сборная солянка - куча разрозненных сообщений к окну, касающиеся его статуса, размеров, положения и т.п. -------------------- 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 |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0521 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |