Links
EControl Form Designer Pro
ButtonClick Example

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!