Resize формы как в Обьект Инспекторе/Винампе

← →
Кекс (2003-05-01 06:07) [0]

Как ресайзить форму дискретно, то есть не плавно, а например, по 8 пикселов? Как в плейлисте Винампа или в Обьект Инспекторе делфи

← →
Ученик (2003-05-01 10:35) [1]

В качестве пример дискретное изменение правой границы окна, остальные в описании WM_SIZING

procedure WMSizing(var Message: TMessage); message WM_SIZING;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSizing(var Message: TMessage);
begin
if Message.WParam = WMSZ_RIGHT then begin
with PRect(Message.LParam)^ do
Right := Left + ((Right - Left) div 8) * 8;
Message.Result := 1
end else
inherited
end;

Resize формы как в Обьект Инспекторе/Винампе Найти похожие ветки