如下定义接口和控件中使用接口是什么意思?接口应怎样使用？为什么我的控件使用接口后不能接收到鼠标消息，而别的使用这接口控件却将本应

Question

如下定义接口和控件中使用接口是什么意思?接口应怎样使用？为什么我的控件使用接口后不能接收到鼠标消息，而别的使用这接口控件却将本应由我的控件接收的鼠标消息接收到了？['{B64255B5-386A-4524-8BC7-7F49DDB410F4}']这样的一串代码是怎样得来的？能自由地编一个吗？3Q.......IComboEditEh = interface
    ['{B64255B5-386A-4524-8BC7-7F49DDB410F4}']
    procedure CloseUp(Accept: Boolean);
  end;......procedure TPopupMonthCalendarEh.KeyDown(var Key: Word; Shift: TShiftState);
var
  ComboEdit: IComboEditEh;
begin
  inherited KeyDown(Key, Shift);
  if Key in [VK_RETURN, VK_ESCAPE] then
  begin
    if Supports(Owner, IComboEditEh, ComboEdit) then
      ComboEdit.CloseUp(Key = VK_RETURN);
    Key := 0;
  end;
end;......

Answer 1

['{B64255B5-386A-4524-8BC7-7F49DDB410F4}']是在写接口时，按CTR+SHIFT+I得到的。

Answer 2

TPopupMonthCalendarEh = class(Tobject,IComboEditEh)

Answer 3

GUID 是你的接口的一个唯一标识……还有，略....

Answer 4

错误。GUID是按 CTRL+SHIFT+G 得到的。