勤学多思
delphi
if (Sender is TButton)then b:=Sender as TButton
bcb
if (Sender->InheritsFrom(__classid(TButton))) b = dynamic_cast<TButton *>(Sender);
Powered by: IT博客 Copyright © kenlistian