想建一個帶分隔條的label 控件； Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061206182116257.html
想建一個帶分隔條的label ? 控件； ?
? ?
? 是豎式的分隔條，能不能實現？如何實現？ ?
? ?
?

用TBevel控件，復制到你的窗體上看看效果 ?
? ?
? object ? Label1: ? TLabel ?
? ? ? Left ? = ? 72 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label1' ?
? end ?
? object ? Bevel1: ? TBevel ?
? ? ? Left ? = ? 105 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 3 ?
? ? ? Height ? = ? 13 ?
? end ?
? object ? Label2: ? TLabel ?
? ? ? Left ? = ? 108 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label2' ?
? end ?
?

我在復制到unit1.pas ? 下以后，報錯： ?
? ?
? [Error] ? Unit1.pas(52): ? Declaration ? expected ? but ? 'OBJECT' ? found ?
? ?
? ?
? ?
? 我是放在這地方的； ?
? unit ? Unit1; ?
? ?
? interface ?
? ?
? uses ?
? ? ? Windows, ? Messages, ? SysUtils, ? Variants, ? Classes, ? Graphics, ? Controls, ? Forms, ?
? ? ? Dialogs, ? DB, ? ADODB, ? Grids, ? DBGrids, ? ExtCtrls, ? DBCtrls, ? StdCtrls; ?
? ?
? type ?
? ? ? TFrmPMLR ? = ? class(TForm) ?
? ? ? ? ? ADOConnection1: ? TADOConnection; ?
? ? ? ? ? ADOTable1: ? TADOTable; ?
? ? ? ? ? DataSource1: ? TDataSource; ?
? ? ? ? ? DBGrid1: ? TDBGrid; ?
? ? ? ? ? DBNavigator1: ? TDBNavigator; ?
? ? ? ? ? Label1: ? TLabel; ?
? ? ? ? ? Button1: ? TButton; ?
? ? ? ? ? Button2: ? TButton; ?
? ? ? ? ? procedure ? Button1Click(Sender: ? TObject); ?
? ? ? ? ? procedure ? Button2Click(Sender: ? TObject); ?
? ? ? private ?
? ? ? ? ? { ? Private ? declarations ? } ?
? ? ? public ?
? ? ? ? ? { ? Public ? declarations ? } ?
? ? ? end; ?
? ?
? var ?
? ? ? FrmPMLR: ? TFrmPMLR; ?
? ?
? implementation ?
? ?
? {$R ? *.dfm} ?
? ?
? procedure ? TFrmPMLR.Button1Click(Sender: ? TObject); ?
? var ?
? NewString: ? string; ?
? begin ?
? ? ? ? ? ? ? InputQuery('輸入查詢條件','查詢品名為', ? NewString); ?
? ? ? ? ? ? ? ADOTable1.Locate('PM',NewString,[LoPartialkey]); ?
? end; ?
? ?
? procedure ? TFrmPMLR.Button2Click(Sender: ? TObject); ?
? ? var ?
? NewString: ? string; ?
? begin ?
? ? ? ? ? ? ? InputQuery('輸入過濾條件','過濾品名為 ? ? ? ', ? NewString); ?
? ? ? ? ? ? ? ADOTable1.Filter:='PM ? like ? '+''''+'%'+NewString+'%'+''''; ?
? ? ? ? ? ? ? ADOTable1.Filtered:=true; ?
? ?
? end; ?
? ?
? ? object ? ? Label1: ? TLabel; ?
? ? ? Left ? = ? 72 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label1' ?
? end ?
? object ? Bevel1: ? TBevel ?
? ? ? Left ? = ? 105 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 3 ?
? ? ? Height ? = ? 13 ?
? end ?
? object ? Label2: ? TLabel ?
? ? ? Left ? = ? 108 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label2' ?
? end ?
? ?
? ? ? Left ? = ? 72 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label1' ?
? end ?
? object ? Bevel1: ? TBevel ?
? ? ? Left ? = ? 105 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 3 ?
? ? ? Height ? = ? 13 ?
? end ?
? object ? Label2: ? TLabel ?
? ? ? Left ? = ? 108 ?
? ? ? Top ? = ? 192 ?
? ? ? Width ? = ? 32 ?
? ? ? Height ? = ? 13 ?
? ? ? Caption ? = ? 'Label2' ?
? end ?
? ?
? ?
? ?
? ?
? end. ?
? ?
? ?
? ?
? ?
? ?
?

強烈鄙視問題解決后不結貼的人! ?
? 強烈鄙視技術問題解決后把貼子轉移到非技術區的人! ?
? 鄙視你們! ?
? ?
? http://community.csdn.net/Expert/topic/5216/5216675.xml?temp=.9262659

復制到你的窗體上 ?
? 復制到你的窗體上 ?
? 復制到你的窗體上 ?
? 復制到你的窗體上 ?
? ?
? -_-!!!!!! ?
? ?
? 不是復制到你的單元中

暈倒

我是新手，原來創建對象的代碼可以直接往窗體上粘貼呀！ ?
? ?
?

總結

以上是生活随笔為你收集整理的想建一个带分隔条的label 控件；的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。