Помогите поправить компонент

← →
Study (2008-03-21 05:56) [0]

unit PageControlEx; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls; type TBorderStyleEx = (pcbsNone, pcbsOnePixel); TPageControlEx = class (ComCtrls.TPageControl) private FBorderStyleEx : TBorderStyleEx; procedure SetBorderStyleEx(const Value: TBorderStyleEx); protected property BorderStyleEx : TBorderStyleEx read FBorderStyleEx write SetBorderStyleEx; procedure WndProc(var Message : TMessage); override; end; procedure Register; implementation procedure TPageControlEx.SetBorderStyleEx(const Value: TBorderStyleEx); begin FBorderStyleEx := Value; end; procedure TPageControlEx.WndProc(var Message : TMessage); const TCM_FIRST = $1300; { Tab control messages } TCM_ADJUSTRECT = TCM_FIRST + 40; begin if Message.Msg = TCM_ADJUSTRECT then begin inherited WndProc(Message); case FBorderStyleEx of pcbsNone : begin // Совсем без границ PRect(Message.LParam)^.Left := 0; PRect(Message.LParam)^.Right := ClientWidth; PRect(Message.LParam)^.Top := PRect(Message.LParam)^.Top-4; PRect(Message.LParam)^.Bottom := ClientHeight; end; pcbsOnePixel : begin // Шириной в один пиксел: PRect(Message.LParam)^.Left := 1; PRect(Message.LParam)^.Right := ClientWidth-1; PRect(Message.LParam)^.Top := PRect(Message.LParam)^.Top-3; PRect(Message.LParam)^.Bottom := ClientHeight-1; end; end; end else inherited WndProc(Message); end; procedure Register; begin RegisterComponents("Samples", [TPageControlEx]); end; end.

Проблема в том, что когда я меняю BorderStyleEx, у меня перерисовки не происходит. А как сделать, чтобы происходила? Repain, Invalidate и UpdateActivePage не помогают.

← →
icWasya © (2008-03-21 15:55) [1]

procedure TPageControlEx.SetBorderStyleEx(const Value: TBorderStyleEx); begin if FBorderStyleEx = Value then Exit; FBorderStyleEx := Value; invalidate; end;

← →
Study (2008-03-22 05:39) [2]

> icWasya © (21.03.08 15:55) [1]
>
> procedure TPageControlEx.SetBorderStyleEx(const Value: TBorderStyleEx);
>
> begin
> if FBorderStyleEx = Value then Exit;
> FBorderStyleEx := Value;
> invalidate;

Я же говорю Invalidate не помогает.

← →
Study (2008-03-23 05:31) [3]

Удалено модератором

← →
Study (2008-03-25 07:49) [4]

Удалено модератором

← →
Жуков Олег (2008-03-25 08:35) [5]

RecreateWnd()?

А если поместить inherited WndProc(Message); после того, как что-то поправишь в Message.LParam ??

Помогите поправить компонент Найти похожие ветки