If you use the classname property you can:
case Sender.classname of
'TCheckBox': ShowMessage('This is a TCheckBox');
end;
2015-07-27 09:31 keltezéssel, Mark Morgan Lloyd írta:
> Péter Gábor wrote:
>>
>> if Sender = TButton then { do something} ;
>
> Can this be elegantly put into a case statement?
>
--
Péter Gábor
[email protected]
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
