Текущий архив: 2007.07.08;
Скачать: 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 вся ветка
Текущий архив: 2007.07.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
