If a control's ParentColor property is true, then changing the Color property of the control's parent automatically changes the Color property of the control. When the value of the Color property is changed, the control's ParentColor property is automatically set to false.
button.color:=red;
开个玩笑了。
或者用第三方控件,例如raize
可惜不是我需要德!是不是又要用第三方控件呀!
用个panel,Caption改成button的,大小调整了和button一般大,OnClick事件实现你的button的Onclick事件。颜色随便你变。
同意 samcrm(阿靖)
或者用第三方控件呀,很多的
编译出来谁知道你是不是用的button按钮啊??
只要效果达到就可以了是不?
Shift: TShiftState; X, Y: Integer);
begin
Panel1.BevelOuter:=bvLowered ;
end;procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Panel1.BevelOuter:=bvRaised;
showmessage('hehe,我其实是个Panel');
end;