60分 三个小问题 快来那分吧 今天希望能结贴（9.29)

Question

1.求“心”形form的代码2.鼠标经过button的事件是OnMouseMove,求鼠标离开的事件或能解决此问题的代码3.拖动form身体，能像拖动它的标题栏一样，怎么做？

Answer 1

3、procedure TForm1.form1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  SendMessage(form1.Handle,WM_SYSCOMMAND,$F012,0);
end;

Answer 2

2、procedure ButtonMouseLeave(var Message:TMessage);message CM_MOUSELEAVE;

Answer 3

1、记得VB做时，是画几个圆之类的，然后用什么api函数（忘了）
2、这是一个lable有鼠标移入移出的。
unit MIOLabel;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMIOLabel = class(TLabel)
  private
   FColor:TColor;
   FMouseEnter:TNotifyEvent;
   FMouseLeave:TNotifyEvent;
   FontColor:TColor;
    { Private declarations }
    procedure WmMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure WmMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
   constructor Create(AOwner : TComponent); OverRide;
    { Public declarations }
  published
   property OnMouseEnter:TNotifyEvent Read FMouseEnter Write FMouseEnter;
   property OnMouseLeave:TNotifyEvent Read FMouseLeave Write FMouseLeave;
   Property MouseInColor:TColor read FColor Write FColor default clred;
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMIOLabel]);
end;{ TMIOLabel }
constructor TMIOLabel.Create(AOwner: TComponent);
begin
  inherited;
  Fcolor:=Clred;
  Font.Color :=Clblue;
  Cursor:=crHandPoint;
end;procedure TMIOLabel.WmMouseEnter(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = CM_MOUSEENTER) then begin
    FontColor:=Font.Color ;
    Font.Color:=FColor;
    Font.Style :=Font.Style +[fsUnderline];
    if Assigned(FMouseEnter) then   FMouseEnter(self);
  end;      //这里应该如何跟ONmouseEnter连起。
end;procedure TMIOLabel.WmMouseLeave(var Message: TMessage);
begin
   inherited;
   if (Message.Msg = CM_MOUSELEAVE) then begin
      Font.Color:=FontColor;
      Font.Style :=Font.Style -[fsUnderline];
      if Assigned(FMouseLeave) then  FMouseLeave(self);
   end;   //这里应该如何 跟OnMouseLeave事件连起
end;end.3、查查无标题窗体的移动。

Answer 4

谢谢 haoqingqlm(木头) noall() ！心呢？

Answer 5

心型的FORM好象是改写他的父类，定义其形状；
拖动的，好象有个触发范围，调用一个API函数。
参数改大点。