开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
dblabelu.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

dblabelu.pas：源码内容
  1. unit dblabelu;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, DBCtrls, Db, fcLabel, DBTables, StdCtrls, fcpanel, fcImager,
  8.   ComCtrls, fcDemoRichEdit;
  10. type
  11.   TJustifyLabelDemoForm = class(TForm)
  12.     DataSource1: TDataSource;
  13.     Table1: TTable;
  14.     DBNavigator1: TDBNavigator;
  15.     fcGroupBox1: TfcGroupBox;
  16.     fcImager1: TfcImager;
  17.     fcPanel3: TfcPanel;
  18.     fcLabel2: TfcLabel;
  19.     fcDemoRichEdit1: TfcDemoRichEdit;
  20.     Panel1: TPanel;
  21.     Panel2: TPanel;
  22.     fcLabel1: TfcLabel;
  23.     procedure FormShow(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   JustifyLabelDemoForm: TJustifyLabelDemoForm;
  33. implementation
  35. {$R *.DFM}
  37. procedure TJustifyLabelDemoForm.FormShow(Sender: TObject);
  38. begin
  39.    fcDemoRichEdit1.Anchors := [akLeft,akTop,akBottom];
  40. end;
  42. end.