怎样用DELPHI实现将开始按扭换成自己制作的位图?
解决方案 »
- 如何让Edit或DBEdit文字上下居中?谢谢!
- 偷看主公洗澡的下场(zt)
- 我对一个表添加数据时,要求不能添加相同的数据,怎么写代码
- 界面调用
- 录入界面继承后,动态创建ADOQuery,DataSource,做不出来.~~
- FastReport 在DELPHI5.0 装起来了但出现:Line too long [more than 1023 charachers]错误
- 怎么获取本机IP。
- 请教各位高手,怎么改变按钮的颜色
- 用SYBASE 的高手帮忙指点以下,很简单的
- 给mudeen(笑哥哥)的
- 关于程序打包的问题
- 关于form.print的问题,急!!!!!!!!!!!!!!!!!!!up有分!!!200分相送!!!
请问是哪个开始按钮?
按钮如果是TBitButton或者TSpeedButton
它们有个图片的属性.
好象是SYSTEM里面的一个位图文件~
不知道改了是不是还要重起什么的~
试试重绘底下的任务栏~
Form1: TForm1;
StartButton: hWnd;
OldBitmap: THandle;
NewImage: TPicture; procedure TForm1.FormCreate(Sender: TObject);
begin
NewImage := TPicture.create;
NewImage.LoadFromFile('C:WindowsCircles.BMP');
StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button', nil);
OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);
end; procedure TForm1.FormDestroy(Sender: TObject);
begin
SendMessage(StartButton,BM_SetImage,0,OldBitmap);
NewImage.Free;
end;