我的问题从TControl开始。

Question

stored:保存dfm时如果是后面的值就不保存。相当于没有定义该属性的值时的缺省值。TNotifyEvent的实现？Classes.pasdelphi封装了左键按下等事件。增加了一个OnClick事件。procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited;
  if csCaptureMouse in ControlStyle then MouseCapture := False;
  if csClicked in ControlState then
  begin
    Exclude(FControlState, csClicked);
    if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then Click;
  end;
  DoMouseUp(Message, mbLeft);
end;