クラスによって処理をかえる

1件のフィードバック

うまくいくように思ったけど、うまくいかなかった？

procedure TMover.changeScale(aScale: TPosition);
begin
  if (FTarget is TLayout) then
    TLayout(FTarget).Scale := aScale
  else if (FTarget is TLayout) then
    TImage(FTarget).Scale := aScale
end;

「クラスによって処理をかえる」への1件のフィードバック

コメントを残す

メールアドレスが公開されることはありません。


+ 三 = 12

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>