Die StatusBar und Windows XP

[nailor]

dankedankedanke!


Naja, jedenfalls der folgende Code macht unter Windows-XP eine funktionierende StatusBar:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Messages, Forms, ComCtrls, Windows;

type
  TMyStat = class(TStatusBar)
    procedure WMSize (var Message: TWMSize); message WM_SIZE;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R design.res}

procedure TMyStat.WMSize (var Message : TWMSize);
var 
  Rect: TRect;
begin 
  inherited; 
  Rect:=ClientRect; 
  InvalidateRect(Handle, @Rect, true); 
  Invalidate; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.InsertControl(TMyStat.Create(Form1));
end;

end.

könnte man auch in die Code-Lib hauen!