Размер мемо

← →
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

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

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