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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Растягивание TListBox 
:(
    Опции темы
Delphist
  Дата 14.3.2006, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
На форме лежит компонент Memo1. Есть также

ListBox1.Parent := memo1

Как осуществить динамически(во время работы проги) растягивание за край ListBox1, подобно окну свойств в Delphi.




Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  1.JPG 19,67 Kb


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Romikgy
Дата 14.3.2006, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
А не проще ли будет если создашь форму, и на нее кинешь листбокс, на всего клиента, и тягать форму?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Snowy
Дата 14.3.2006, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

var
  Stl: integer;
begin
  with TListBox.Create(Memo1) do
  begin
    Parent := Memo1;
    Stl := GetWindowLong(Handle, GWL_STYLE);
    Stl := Stl or WS_THICKFRAME;
    SetWindowLong(Handle, GWL_STYLE, Stl);
    SetWindowPos(Handle, HWND_TOP, Left, Top, Width, Height, SWP_FRAMECHANGED);
  end;
end;
PM MAIL   Вверх
Delphist
  Дата 14.3.2006, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(Romikgy @ 14.3.2006, 14:11)
А не проще ли будет если создашь форму, и на нее кинешь листбокс, на всего клиента, и тягать форму?

Нет не проще т.к. там специфическая задача.


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Romikgy
Дата 14.3.2006, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(Delphist @ 14.3.2006, 14:28 Найти цитируемый пост)
Нет не проще т.к. там специфическая задача.

Имхо одинаково smile, хотя те
Snowy, предложил другой вариант smile


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Delphist
  Дата 14.3.2006, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(Snowy @ 14.3.2006, 14:35)
Код

    SetWindowPos(Handle, HWND_TOP, Left, Top, Width, Height, SWP_FRAMECHANGED);
end;

Эту строку надо как то заменить, чтобы у ListBox'a Border'ы были не жирные, а обычные.

Это сообщение отредактировал(а) Delphist - 14.3.2006, 15:44


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Romikgy
Дата 14.3.2006, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(Snowy @ 14.3.2006, 13:35 Найти цитируемый пост)
Stl := GetWindowLong(Handle, GWL_STYLE);
    Stl := Stl or WS_THICKFRAME;
    SetWindowLong(Handle, GWL_STYLE, Stl);

оставь это , а вывод сделай как раньше делал


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Snowy
Дата 14.3.2006, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
BorderStyle := bsNone;
Добавлено @ 16:06
Код
var
  Stl: integer;
begin
  with TListBox.Create(Memo1) do
  begin
    Parent := Memo1;
    BorderStyle := bsNone;
    Stl := GetWindowLong(Handle, GWL_STYLE);
    Stl := Stl or WS_THICKFRAME;
    SetWindowLong(Handle, GWL_STYLE, Stl);
    SetWindowPos(Handle, HWND_TOP, Left, Top, Width, Height, SWP_FRAMECHANGED);
  end;
end;
PM MAIL   Вверх
Delphist
  Дата 14.3.2006, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(Romikgy @ 14.3.2006, 15:56)
оставь это , а вывод сделай как раньше делал

Добавлено @ 17:35
Цитата(Snowy @ 14.3.2006, 16:05)
BorderStyle := bsNone;

Ты прав только нужно BevelInner и BevelOuter тоже := bsNone - чтобы получить внешний вид как у окна свойств Delphi.

Это сообщение отредактировал(а) Delphist - 14.3.2006, 17:38


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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