想建一个带分隔条的label 控件;
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 控件;相关推荐
- 一个带展开按钮的TextView控件
网上找了很多三方的实现但是都不是我想要的效果或者实现比较复杂,然后就自己写了一个. 就这种效果其实就是很轻量级的一个实现. 首先看我实现的第一个版本. public class ExpandTextV ...
- android 带清除功能的输入框控件
今天,看到一个很好的自定义输入框控件,于是记录一下. 效果很好: 一,自定义一个类,名为ClearEditText package com.example.clearedittext;import a ...
- 【Qt教程】3.1 - Qt5 event事件、Label控件的鼠标事件捕获
1. event简介 事件(event)是由系统或者Qt本身在不同的时刻发出的.当用户按下鼠标.敲下键盘,或者是窗口需要重新绘制的时候,都会发出一个相应的事件.一些事件在对用户操作做出响应时发出,如键 ...
- Python Tkinter教程(二)——Label控件、Frame控件、Button控件的完整参数和所有方法及详细用法
>>>[上节回顾:tkinter编程基本步骤.窗口基本属性及Toplevel控件的使用]<<< Python Tkinter教程(二) 这篇博客将详 ...
- WPF Label控件文字竖排及控制字间距
下载文件里的代码比较老了 在下也懒得去更新,其实文章已经说的很清楚了,关键代码也贴出来了, 认真看文章的同学应该很容易就能自己实现,下载文件那5个分各位看情谊吧...(代码以文章为准) 更新: 之前那 ...
- Label控件属性AssociatedControlID
可以使用Label控件来标注一个HTML表单字段.Label控件拥有属性AssociatedControlID,可以设置此属性来指向表示表单字段的ASP.NET控件. 例如,代码清单2-3中的页面含有 ...
- 格式化显示在Label控件中的金额格式文本 (2)
通过Label控件的Text属性可以设置控件内显示的文本,而通过对象的ToString方法可以格式化字符串显示的格式.本实例设定在Label控件中金额的显示格式,运行结果如图1所示. <?XML ...
- (原创)自已实现服务器控件 之 简单的Label控件
标题:自已实现服务器控件之Label控件 声明:本帖只是一个测试Demo,所以,不会写得太规范,也不会考虑到安全性.以方便为 主.所以,用得到的朋友在项目中使用的时候,还希望对其进行改进. 环境 开 ...
- Silverlight带关闭动画的内容控件,可移动的内容控件(一)
本例给大家介绍两个自定义控件,一个有显示和关闭两种状态,在状态切换时有动画效果.另外一个是可以拖动的内容控件,可以制作能拖动的面板. A.带关闭动画的内容控件. .xaml View Code < ...
最新文章
- 基础篇:如何做一名专业的软件测试工程师
- Github连击200天(1)——ShowCase
- apache 开启Gzip网页压缩
- python自动搜索请求失败_http请求 request失败自动重新尝试代码示例
- 机器学习线性回归_机器学习实例--线性回归
- SAP License:结算金额大于可支配金额
- POST 请求出现异常!java.io.IOException: Server returned HTTP response code: 400 for URL
- uva10340 Ail in All
- 如何使用CineMatch的伪色指南功能来帮助评估图像
- Kubernetes 小白学习笔记(8)--kubernetes的基础概念
- 关于python项目路径导入自己写的库出错的一点思考
- 《你不知道的javascript》读书笔记-上卷-第二章:this的全面解析
- 利用VBA将表格保存为PDF文件
- Cassandra数据库模糊查询
- 解决PMML namespace URI httpwww.dmg.orgPMML-4_4 is not supported
- c语言怎么让程序换页,c语言编程系统,如何换页显示?
- php unpack 原理,unpack
- nginx出现499现象及原因
- Java程序员辛勤工作7年被裁,背后的思考与总结
- java php python校园通知事项打卡 微信小程序系统