对事件‘赋值’的例子

对事件‘赋值’的例子：

type  

 TSEvent=procedure (StatusBar: TStatusBar;Panel: TStatusPanel;

const Rect: TRect) of Object;

………

 private

SEvent:TSEvent;

    procedure mySDrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel;

const Rect: TRect);

end;

procedure TFrm_Main.actLYJHExecute(Sender: TObject);

begin
....

    SEvent:=mySDrawPanel;//见下面的注解

    Form1.ShowModal;

    Form1.StatusBar1.OnDrawPanel:=SEvent;

  finally

...

 

  end;

end;

//自定义的处理过程
procedure TFrm_Main.mySDrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel;const Rect: TRect);

begin

  StatusBar.Canvas.Brush.Color:=$00737157;

  StatusBar.Canvas.Font.Color:=$00EAEEEE;

  StatusBar.Canvas.FillRect(Rect);

  StatusBar.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Panel.Text);

end;

注解：值得注意的是：如果是在一个Unit中，这样是不行的。

type TFormClose = procedure (Sender: TObject; var Action: TCloseAction) of Object;
....
procedure ShowForm(SchoolName:string;ParentHandle:HWND;frm:TForm);
var
   profrmClose : TFormClose ;
begin

  TMethod(profrmClose).Code := @FormClose;
      TMethod(profrmClose).Data := nil;
  //-------说明：如果是在一个form单元中，不需要如此，直接proFrmClose := FormClose 就可以。具体原理还有待研究。

  {frm.psSchoolName := pSchoolName;//学校名称
  frm.phMainHandle := h; //窗体句柄}
  psSchoolName := SchoolName;//学校名称
  phMainHandle := ParentHandle; //窗体句柄
  setParent(frm.handle,phMainHandle);
  frm.windowstate:=wsMaximized;
  HideTitle(frm);
  frm.Visible := true;
  frm.OnClose := profrmClose;
end;

//退出窗体
procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
     if(Application.Messagebox('真的要退出本程序？','询问提示',MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION)=IDNo) then
     begin
          abort;
     end
     else
     begin
          ptr^:= LongInt(ptrMain);    //add
                   //主程序窗体尺寸还原add
         postmessage(phMainHandle,WM_SYSCOMMAND,SC_RESTORE,333);
     end;
end;