if Assigned(FShowDateHint) then FShowDateHint(self) 什么意思

Question

s,sDate,sHint: string;
  i: integer;
begin
  for i := 0 to FDateHints.Count-1 do
    begin
      s := FDateHints[i];
      sDate := copy(s,1,pos('|',s)-1);
      sHint := copy(s,pos('|',s)+1,length(s));      if FCaption=sDate then
        begin
          FActive := false;
          Timer.Enabled := False;
          FDateHint := sHint;
          asm mov ax,07h
              int 10h;
          end;
           if Assigned(FShowDateHint) then
             FShowDateHint(self)
           else
             showmessage(sHint);
        endif Assigned(FShowDateHint) then
             FShowDateHint(self)什么意思啊
主要是self
           
        

Answer 1

FShowDateHint是一个事件，如果被定义，就执行，
self是事件的参数，知道大多数事件中的sender是什么吗，就是这个self

Answer 2

FShowDateHint函数的参数是什么类型？
你可以单步调试到if Assigned(FShowDateHint) then FShowDateHint(self)  处，选中self，按ctrl+F7,在self后面加上.classname,也就是看当前的self.classname,回车就可以看到结果了。如果还不清楚可以猜测着试self.caption等

Answer 3

该是一个控件代码.感觉.
有个事件OnShowDateHint(sender : XXX);