如何去掉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; 请问OpenDialog的option的属性ofHideReadOnly是什么意思? 寻找串口编程资料 简体系统写的程序怎么才能在繁体系统正常显示字体! 怎样得到当前月总共有几日?比如说29,31等等? 三个pascal问题,看你能回答对几个?正确有分。 请教一个弱弱的问题 远程访问不能访问sql server 告急!!有关delphi中访问oracle数据库的问题 上传文件要求什么格式阿?要求大小是多少?请会用的指教一下,谢谢! 为什么我的回复看不到? 如何在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;