Péter Gábor wrote:
If you use the classname property you can:

case Sender.classname of
  'TCheckBox': ShowMessage('This is a TCheckBox');
end;

Good point. I wonder if that's mode-specific (language manual simply says "Free Pascal allows").

--
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]

--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to