在创建的按钮上的ONMOUSEUP事件不能触发,只有得到焦点后才可以。
解决方案 »
- 现金悬赏:xp或2k加载bin问题
- file not found :'inspectorBar.dcu'
- 一个.mdb的数据库中只有一个表,用程序求这个表名
- 大家进来讨论一下:模拟Windows2K中域的管理.
- 数据显示问题
- 请教:使用 XpMenu 后程序经常出错!!!Access violation at adress XXX in xxx
- 怎么对所收到的EMail标题进行解码???
- Microsoft VBScript 编译器错误 错误 '800a0401'
- 要求当鼠标离开Groupbox的范围时相应某一事件,我该怎么作呢
- Delphi 指针问题,请大家帮忙!
- 查询且添加字段Sql语句怎么写
- 最近,在做一个单位的布线工程,工程不大,但是要有一分详细的工程进度计划,我不知道怎么写,请大家想想吧。
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
VAr
Button2: TButton;
Button3: TButton;
Button4: TButton;
begin
button2:=tbutton.create(nil);
button3:=tbutton.create(nil);
button4:=tbutton.create(nil);
button2.Parent:=form1;
button3.parent:=form1;
button4.parent:=form1;
button2.left:=100;
button2.top:=100;
button3.left:=100;
button3.top:=200;
button4.left:=100;
button4.top:=300;
button2.Caption:='dfasdf2';
button3.Caption:='dfasdf3';
button4.Caption:='dfasdf4';
button2.OnMouseMove:=button1.OnMouseMove;
button3.OnMouseMove:=button1.OnMouseMove;
button4.OnMouseMove:=button1.OnMouseMove;
end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TBUTTON then
tbutton(Components[i]).font.size:=8;
tbutton(sender).font.size:=12;
end;end.
上面的能使FONT变大
你看看