Styles

[choose]

Probier das

Delphi-Quellcode:

procedure CheckWindowStyle(const AStyle: Cardinal;
  const arIdents: array of Integer);
var
  i: Integer;
begin
  for i:= Low(arIdents) to High(arIdents) do
    showmessage(Format('AStyle: %.8x, arIdent[%d]=%.8x',
      [AStyle, i, arIdents[i]]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckWindowStyle( $f00, [WS_VISIBLE, WS_DISABLED]);
end;

Wenn es klappen sollte, liegt der Fehler wahrscheinlich in dem Teil, der auf die gesetzten Bits prüft...
Du bekommst also einen Fehler zur Laufzeit (Exception)? Wie genau lautet dessen Bezeichnung?