60分 三个小问题 快来那分吧 今天希望能结贴(9.29) 1.求“心”形form的代码2.鼠标经过button的事件是OnMouseMove,求鼠标离开的事件或能解决此问题的代码3.拖动form身体,能像拖动它的标题栏一样,怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 3、procedure TForm1.form1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(form1.Handle,WM_SYSCOMMAND,$F012,0);end; 2、procedure ButtonMouseLeave(var Message:TMessage);message CM_MOUSELEAVE; 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、查查无标题窗体的移动。 谢谢 haoqingqlm(木头) noall() !心呢? 心型的FORM好象是改写他的父类,定义其形状;拖动的,好象有个触发范围,调用一个API函数。参数改大点。 大家帮我看看这段代码怎么错了?2 求 DELPHI 下二维条码控制 帮我看下我代码错在哪 大家勿进,自己换ID! 模版打包问题 动态给 SPcomm控件属性赋值 的问题————急急急急急急急——求求大家拉都来帮忙啊!!! 作一字处理程序,不能修改部分文字的字体大小、字型等。 请高手指点指点!?!分嘛要多少有多少!! 在用ADO连接数据库时,怎样才能在运行时不显示数据库登录提示框? 谁能给我说说共享缓存的用法,用来程序间通讯用的。 关于webbrowser的问题? 关于dll的问题 给您一百分!
Y: Integer);
begin
ReleaseCapture;
SendMessage(form1.Handle,WM_SYSCOMMAND,$F012,0);
end;
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、查查无标题窗体的移动。
拖动的,好象有个触发范围,调用一个API函数。
参数改大点。