A angellover Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-07 #3 改变标题栏颜色 procedure TForm1.FormPaint(Sender: TObject); var h:HDC; c:TCanvas; begin h:=GetWindowDC(form1.Handle); c:=TCanvas.Create ; c.Handle:=h; c.Brush.Color := clred; c.Font.Color := clWhite; c.FillRect(rect(0,0,width,20)); c.Free; end;
改变标题栏颜色 procedure TForm1.FormPaint(Sender: TObject); var h:HDC; c:TCanvas; begin h:=GetWindowDC(form1.Handle); c:=TCanvas.Create ; c.Handle:=h; c.Brush.Color := clred; c.Font.Color := clWhite; c.FillRect(rect(0,0,width,20)); c.Free; end;
M mytree520 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-15 #11 可不可以让颜色按一定时间改变啊,就是几种颜色间转变