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

Как отследить изменение размера TCustomControl компонента?   Найти похожие ветки 

← →
DevilDevil ©   (2006-07-18 12:17) [0]

Создаю компонент на основе TCustomControl. По Paint должен рисоваться буфер-Битмап, размеры которого соответствуют размеру компонента.

---

← →
clickmaker ©   (2006-07-18 13:34) [1]

TControl.Resize
WM_SIZE

---

← →
DimaBr   (2006-07-18 13:46) [2]

TControl.SetBounds

---

← →
DevilDevil ©   (2006-07-18 14:08) [3]

Мне нужна отдельная процедура, возникающая при изменении размеров компонента. В ней я и буду изменять размеры битмапа...

---

← →
DimaBr   (2006-07-18 16:01) [4]


TMyControl = class(TControl) // или выше
 protected
   procedure SetBounds(ALeft,ATop,Awidth,AHeight: integer);override;
   procedure Resize; override;
end;

//  возникает при изменнении размеров и положения
procedure TMyControl.SetBounds(ALeft,ATop,Awidth,AHeight: integer);
begin
 // можно запретить изменение размеров и положения
 //  например ALeft := Left;
 //  можно вызвать свой метод или прямо здесь
 //  ResizeMyBitmap(ALeft,ATop,Awidth,AHeight);
 inherited SetBounds(ALeft,ATop,Awidth,AHeight);
end;

procedure TMyControl.Resize;
begin
 // возникает при изменении размеров
 //  ResizeMyBitmap;
 inherited Resize;
end;


---

← →
DevilDevil ©   (2006-07-19 18:17) [5]

Спасибо!
Использую Resize. Всё корректно. Ещё раз спасибо!

---

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

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



Память: 0.46 MB
Время: 0.019 c