Скачать: CL | DM;

Размер мемо   Найти похожие ветки 

← →
Oleg_teacher ©   (2007-05-08 19:57) [0]

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

---

← →
{RASkov} ©   (2007-05-08 21:12) [1]

Можно так:
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;
Но если ты хочешь подобие как в дизайнере формы, то это не так просто....в двух словах.

---

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

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

---

← →
TStas ©   (2007-05-09 00:49) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c