こんにちは、MCI_Errorです。

めんどくさいループ処理はこうやって簡単に済ませましょう。例として沢山
ボタンをくっつけたのは良いけどいちいちフラット処理をするのは面倒なん
ていうときにやったら、超楽勝です。ただし、速度は保証しません（死）
ターゲットを絞って使ってください。

procedure DoFlat(Source:TControl; Value:Boolean);
var
i:integer;
begin
  if (Source is TWinControl)and(TWinControl(Source).ControlCount>0)then
  begin
    for i:=0 to TWinControl(Source).ControlCount-1 do
    begin
      DoFlat(TWinControl(Source).Controls[i],Value);
    end;
  end;
  if Source is TToolBar then TToolBar(Source).Flat:=Value;
  if Source is TSpeedButton then TSpeedButton(Source).Flat:=Value;
end;


             2001/01/27(Sat) 02:00am  ZAN23154 MCI_Error
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 01/01/29 -

Original document by MCI_Error       氏 ID:(ZAN23154)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。