This example demonstrates how descendant of TCustomBtnPanel overrides ButtonClick method to assign current class type in DsnManager
procedure TPalettePanel.ButtonClick(AButton: integer; Shift: TShiftState); begin DsnManager.ComponentClass := TComponentClassInfo(FCmpList[AButton]).AClass; DsnManager.MultiCreate := ssShift in Shift; inherited; end;
Copyright (c) 2004 - 2011 EControl Ltd.. All rights reserved.
|
What do you think about this topic? Send feedback!
|