如何去掉combobox的边框让他变成平的 简单方案:1、2、见FlatStyle中TFlatComboBox组件的代码,由TCustomComboBox类派生;3、只有自定义排序; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //Ctrl+C如下,Ctrl+V到设计期间的窗体object ComboBox1: TComboBox Left = 184 Top = 56 Width = 145 Height = 21 ItemHeight = 13 TabOrder = 1 Text = 'ComboBox1'endobject Panel1: TPanel Left = 162 Top = 56 Width = 185 Height = 2 BevelOuter = bvNone TabOrder = 2endobject Panel2: TPanel Left = 168 Top = 76 Width = 185 Height = 2 BevelOuter = bvNone TabOrder = 3endobject Panel3: TPanel Left = 181 Top = 50 Width = 5 Height = 38 BevelOuter = bvNone TabOrder = 4endobject Panel4: TPanel Left = 327 Top = 48 Width = 5 Height = 38 BevelOuter = bvNone TabOrder = 5end 1)这个问题在设置时就可实现BevelKind=bkFlat;//变成平面的,但有边框BevelEdges=[];//去掉边框 1)这个问题在设置时就可实现BevelKind=bkFlat;//变成平面的,但有边框BevelEdges=[];//去掉边框 没有bevelkindbeveledges怎么设置? //Ctrl+C,Ctrl+V到设计期间的窗体?试没有//Ctrl+C,Ctrl+V到设计期间的窗体?试没有//Ctrl+C,Ctrl+V到设计期间的窗体?试没有//Ctrl+C,Ctrl+V到设计期间的窗体?试没有//Ctrl+C,Ctrl+V到设计期间的窗体?试没有 //Ctrl+C,Ctrl+V到设计期间的窗体?试没有是什么意思啊?我也在关注这个问题,,不太明白,我也是delphi5:( to : zswang(伴水)(伤心中) 很好,不过太麻烦了,我又不是只用一个,我有N(N>= 100)个要用,你不是要累死我吧?哈哈 为了能更快的完成任务我选择了flatstyle 。 不知道有没有限制(千万不要运行一段时间后不能用了就好)?那位兄弟能告诉我? function f(mComboBox: TComboBox): Boolean;begin Result := False; with TPanel.Create(mComboBox) do try //Top Width := mComboBox.Width + 4; Height := 2; Left := mComboBox.Left - 2; Top := mComboBox.Top; BevelOuter := bvNone; Parent := mComboBox.Parent; except Exit; end; with TPanel.Create(mComboBox) do try //Bottom Width := mComboBox.Width + 4; Height := 2; Left := mComboBox.Left - 2; Top := mComboBox.Top + mComboBox.Height - 1; BevelOuter := bvNone; Parent := mComboBox.Parent; except Exit; end; with TPanel.Create(mComboBox) do try //Left Width := 2; Height := mComboBox.Height + 4; Left := mComboBox.Left; Top := mComboBox.Top - 2; BevelOuter := bvNone; Parent := mComboBox.Parent; except Exit; end; with TPanel.Create(mComboBox) do try //Right Width := 2; Height := mComboBox.Height + 4; Left := mComboBox.Left + mComboBox.Width - 1; Top := mComboBox.Top - 2; BevelOuter := bvNone; Parent := mComboBox.Parent; except Exit; end; Result := True;end;procedure TForm1.Button1Click(Sender: TObject);begin f(ComboBox1);end; delphi 修改xml的数据 delphi 为何设置了搜索路径无效 用delphi比较两张图片的相似度 ADOQuery1.ExecSQL的bt问题 急!!! 大家来帮看看这个错误提示是什么意思?我该怎么修改》? 怎么用Delphi实现来电显示? ??? 我想杷MSCOMM控件封装在DLL中,一些疑惑!!!!!!!!!!!!!!!!! 各位:一个软件的设计思想和详细设计应该包括哪些方面的内容?谢谢! coderush的问题 如何在Edit中判断光标是否是在字符串的末尾? ***软件加密,急急急!!!请高手指教***
object ComboBox1: TComboBox
Left = 184
Top = 56
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 1
Text = 'ComboBox1'
end
object Panel1: TPanel
Left = 162
Top = 56
Width = 185
Height = 2
BevelOuter = bvNone
TabOrder = 2
end
object Panel2: TPanel
Left = 168
Top = 76
Width = 185
Height = 2
BevelOuter = bvNone
TabOrder = 3
end
object Panel3: TPanel
Left = 181
Top = 50
Width = 5
Height = 38
BevelOuter = bvNone
TabOrder = 4
end
object Panel4: TPanel
Left = 327
Top = 48
Width = 5
Height = 38
BevelOuter = bvNone
TabOrder = 5
end
BevelKind=bkFlat;//变成平面的,但有边框
BevelEdges=[];//去掉边框
BevelKind=bkFlat;//变成平面的,但有边框
BevelEdges=[];//去掉边框
bevelkind
beveledges怎么设置?
//Ctrl+C,Ctrl+V到设计期间的窗体?试没有
//Ctrl+C,Ctrl+V到设计期间的窗体?试没有
//Ctrl+C,Ctrl+V到设计期间的窗体?试没有
//Ctrl+C,Ctrl+V到设计期间的窗体?试没有
很好,不过太麻烦了,我又不是只用一个,我有N(N>= 100)个要用,你不是要累死我吧?哈哈
为了能更快的完成任务我选择了flatstyle 。
不知道有没有限制(千万不要运行一段时间后不能用了就好)?那位兄弟能告诉我?
begin
Result := False;
with TPanel.Create(mComboBox) do try //Top
Width := mComboBox.Width + 4;
Height := 2;
Left := mComboBox.Left - 2;
Top := mComboBox.Top;
BevelOuter := bvNone;
Parent := mComboBox.Parent;
except
Exit;
end;
with TPanel.Create(mComboBox) do try //Bottom
Width := mComboBox.Width + 4;
Height := 2;
Left := mComboBox.Left - 2;
Top := mComboBox.Top + mComboBox.Height - 1;
BevelOuter := bvNone;
Parent := mComboBox.Parent;
except
Exit;
end;
with TPanel.Create(mComboBox) do try //Left
Width := 2;
Height := mComboBox.Height + 4;
Left := mComboBox.Left;
Top := mComboBox.Top - 2;
BevelOuter := bvNone;
Parent := mComboBox.Parent;
except
Exit;
end;
with TPanel.Create(mComboBox) do try //Right
Width := 2;
Height := mComboBox.Height + 4;
Left := mComboBox.Left + mComboBox.Width - 1;
Top := mComboBox.Top - 2;
BevelOuter := bvNone;
Parent := mComboBox.Parent;
except
Exit;
end;
Result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
f(ComboBox1);
end;