Startbutton bit map skift
HeyJeg har et lille problem jeg har fundet det her kode på
http://www.delphi.about.com/bltip0900.htm
men kan ikke lige få det til at virke helt
Den fjerner godt nok det normale bitmap + tekst men sætter ikke det nye ind
Og hvordan skifter jeg teksten på startknappen ?
procedure TForm1.FormCreate(Sender: TObject);
begin
NewImage:=TPicture.create;
NewImage.LoadFromFile('C:\Windows\Circles.BMP');
StartButton := FindWindowEx
(FindWindow(
'Shell_TrayWnd', nil),
0,'Button', nil);
OldBitmap:=SendMessage(StartButton,
BM_SetImage, 0,
NewImage.Bitmap.Handle);
end;
...
{And this other in the OnDestroy:}
procedure TForm1.FormDestroy(Sender: TObject);
begin
SendMessage(StartButton,BM_SetImage,0,OldBitmap);
NewImage.Free;
end;
/MB
