| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Размер мемо

Oleg_teacher ©   (2007-05-08 19:57:00) 

Как можно в ходе выполнения программы на форме изменять размер компонента мышкой? (например мемо)

---

TStas   (2007-05-09 00:49:00) [1]

У него есть свойство ResizeControl - Если он nil, он спрячется, а если не нил, то натянется на нужный котрол.

---

TStas   (2007-05-09 00:46:00) [2]

Если надо, как в дизайнере, то вот компонент, который как в дизайнере может менять размеры, но только, как выяснилось, у наследников TWinControl. Для мемы как раз сгодится http://stas258.narod.ru/Resizer.zip

---

{RASkov}   (2007-05-08 21:12:00) [3]

Можно так:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var N: Integer;
begin
 if Button=mbLeft then begin
  if ssCtrl in Shift then N:=$F012 else N:=$F008;
  ReleaseCapture; Memo1.Perform(WM_SYSCOMMAND, N, 0);
 end;
end;
Но если ты хочешь подобие как в дизайнере формы, то это не так просто....в двух словах.

---

Наверх