Как это сделать?

← →
Andy BitOff (2003-09-12 17:15) [0]

Мне надо, чтобы по событию OnPaint сначало отработала стандартная процедура и перерисовала все окно, а потом уже я. Как бы это реализовать?

← →
zaporshivets (2003-09-12 17:17) [1]

inherited;
...
твой код

← →
MBo © (2003-09-12 17:18) [2]

в перекрытом обработчике WM_PAINT

inherited;
твой код

← →
Andy BitOff (2003-09-12 17:22) [3]

А можно поподробнее, а то не совсем понятно где и как это делать.

type
TfrmBitOff = class(TForm)
private
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;

implementation

procedure TfrmBitOff.WMPaint(var Message: TWMPaint);
begin
inherited;
{ Ваш код }
end;

end.

Как это сделать? Найти похожие ветки