combobox的那个下键头如何才透明（即与表单背景色一致

[faqing]

在delphi中combobox,updown的那个键头下的灰色背景，如何才能透明（或者说是更改为与表单背景色一致）

[faqing]

只用代码真的就没法解决吗？

[SStallMan]

用用FlatStyle控件试一试,代码当然可以解决,只是不会

[dejoy]

棕

[才子鸣]

up

[herman~~]

不用代码 ，那你可以去修改combox的源代码呀

[faqing]

沉得太快啦，顶一下！大虾帮忙啊

[Heyongfeng]

顶

[faqing]

这里不能贴图我将效果图放在下面：http://www.myf1.net/bbs/dispbbs.asp?boardID=5&ID=273922

[faqing]

大虾帮忙啊

[faqing]

UP

[xjwy]

呵呵，不是不帮你，但你这个说法就不合理阿

[faqing]

但你这个说法就不合理阿

请问什么说法不合理？

[ideacao]

改控件的ParentColor试试

[real_name]

我用的是FlatStyle控件,

[real_name]

打错了 ，是wwDBcombobox

[real_name]

第3方 控件集 的名字叫 IP3000
它有很多很好用的 控件

[linzhengqun]

以下方法仅供参考，具体自己画出来：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
CBOldProc: TWndMethod;
public
{ Public declarations }
procedure CBNewWndProc(var message: TMessage);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.CBNewWndProc(var message: TMessage);
var
cbInfo: TComboBoxInfo;
AP: array [0..2] of TPoint;
begin
if message.Msg = WM_PAINT then
begin
CBOldProc(Message);
cbInfo.cbSize:= SizeOf(cbInfo);
GetComboBoxInfo(ComboBox1.Handle, cbInfo);
ComboBox1.Canvas.Pen.Width:= 1;
ComboBox1.Canvas.Brush.Style:= bsSolid;
if cbInfo.stateButton = STATE_SYSTEM_PRESSED then
ComboBox1.Canvas.Brush.Color:= clGreen
else
ComboBox1.Canvas.Brush.Color:= clRed;
ComboBox1.Canvas.Rectangle(cbInfo.rcButton);
ComboBox1.Canvas.Brush.Color:= clBlack;
ComboBox1.Canvas.Polygon(Ap);
end
else
CBOldProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CBOldProc:= Combobox1.WindowProc;
ComboBox1.WindowProc:= CBNewWndProc;
end;

end.

[g961681]

要收藏！

[linzhengqun]

上面的ComboBox1.Canvas.Polygon(Ap);去掉吧，你自己设计一个样式，或者用图片。

[王集鹄]

//放一个SpeedButton在ComboBox中，在SpeedButton中用图片 ：）
procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton1.Height := ComboBox1.ClientHeight - 3;
SpeedButton1.Width := ComboBox1.ClientHeight - 3;
SpeedButton1.Parent := ComboBox1;
SpeedButton1.Left := ComboBox1.ClientWidth - SpeedButton1.Width - 2;
SpeedButton1.Top := 2;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ComboBox1.DroppedDown := not ComboBox1.DroppedDown;
end;