>>131
>その4つだけの型を作って
これでも全然問題ないけど
型増やさないでwriteメソッドで設定値調べてalNone, alClientなら
デフォルト値(alTopとか)をセットというのもありかも。