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

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;

---

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

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



Память: 0.44 MB
Время: 0.018 c