Create a label control with separators;

You want to create a label control with a separator; Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiBase/html/delphi_20061206182116257.html
Create a label control with separators;

Is it a vertical separator? How to implement it?

Copy the tbevel control to your form to see the effect.

Object label1: tlabel
Left = 72
Maximum = 192
Width = 32
Height = 13
Caption = 'label1'
End
Object bevel1: tbevel
Left = 1, 105
Maximum = 192
Width = 3
Height = 13
End
Object label2: tlabel
Left = 1, 108
Maximum = 192
Width = 32
Height = 13
Caption = 'label2'
End

After copying to unit1.pas, the following error occurs:

[Error] unit1.pas (52): Declaration expected but 'object' found



I put it here;
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;
Performance1: 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 ('input query condition', 'query item name', newstring );
Adotable1.locate ('pm ', newstring, [lopartialkey]);
End;

Procedure tfrmpmlr. button2click (Sender: tobject );
VaR
Newstring: string;
Begin
Inputquery ('input filtering condition', 'filtering item name', newstring );
Adotable1.filter: = 'pm like' + ''' + '%' + newstring + '%' + '''';
Adotable1.filtered: = true;

End;

Object label1: tlabel;
Left = 72
Maximum = 192
Width = 32
Height = 13
Caption = 'label1'
End
Object bevel1: tbevel
Left = 1, 105
Maximum = 192
Width = 3
Height = 13
End
Object label2: tlabel
Left = 1, 108
Maximum = 192
Width = 32
Height = 13
Caption = 'label2'
End

Left = 72
Maximum = 192
Width = 32
Height = 13
Caption = 'label1'
End
Object bevel1: tbevel
Left = 1, 105
Maximum = 192
Width = 3
Height = 13
End
Object label2: tlabel
Left = 1, 108
Maximum = 192
Width = 32
Height = 13
Caption = 'label2'
End




End.

We strongly despise people who will not close the post after the problem is solved!
People who care about technical issues and transfer their posts to non-technical areas will be despised!
Despise you!

Http://community.csdn.net/Expert/topic/5216/5216675.xml? Temp =. 9262659.

Copy to your form
Copy to your form
Copy to your form
Copy to your form

-_-!!!!!!

Not copied to your unit

Fainted

I am a newbie. I used to create an objectCodeYou can paste it directly to the form!