怎么样不用组件，直接用代码生成LABEL

2008-03-24 08:13:33 153 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

saschenkang 墨衍会员 · AI 创作全网分发关注 + 加入社区

【tkinter组件专栏】Label：显示文本或图像 tkinter窗口组件之Label，可以在屏幕上显示文本或图像，常用参数有27个。阅读详情

我想不使用D7里面VCL 的Label控件直接写代码，生成一个Label标签，运行后显示‘HELLO’如何实现？

...全文

Tkinter组件Label动态修改内容最近在使用组件Lable时，遇见了text内容不能动态修改，最后发现是自己写错了。动态修改现在发现有两种方法，一种是修改Lable的text属性的办法，一种是用varibale的双向绑定，首页是text属性的办法，请看代码 #!/usr/bin/env python # -*- coding: utf-8 -*- # @Time : 2020/10/2 上午1:05 # @Author : wangying # @Site : # @File : TkinterFTP同步界面阅读详情

saschenkang

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lsj070599 2008-03-25

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
lb: TLabel;
begin
lb := TLabel.Create(Self);
lb.Parent := Self;
lb.Caption := 'lb.Caption';
lb.Left := 100;
lb.top := 100;
end;

end.

lihuasoft 2008-03-25

打赏
举报

[Quote=引用 5 楼 saschenkang 的回复:]
能发我一个直接能编译，运行的完整程序吗我在编译的时候他老说我的TLabel 没有定义系统里面没有TLabel 吗？请大侠们给个直接能编译的代码谢谢！
[/Quote]

在interface区，uses子句中，加上 StdCtrls

saschenkang 2008-03-25

打赏
举报

能发我一个直接能编译，运行的完整程序吗我在编译的时候他老说我的TLabel 没有定义系统里面没有TLabel 吗？请大侠们给个直接能编译的代码谢谢！

lachunyan_1 2008-03-25

打赏
举报

8楼的对的

oushengfen 2008-03-25

打赏
举报

呵呵,都完了啊,var
Test : TLabel;
begin
Test := Tlabel.Create(Self);
test.Caption := 'Hello world';
test.Parent := Self;
test.Left := 100 ;
test.Top := 100 ;
end;

这个简洁

knife_s 2008-03-24

打赏
举报

创建,指定容器以及其它属性

sanguomi 2008-03-24

打赏
举报

var
Test : TLabel;
begin
Test := Tlabel.Create(Self);
test.Caption := 'Hello world';
test.Parent := Self;
test.Left := 100 ;
test.Top := 100 ;
end;

lihuasoft 2008-03-24

打赏
举报



procedure TForm1.FormPaint(Sender: TObject);

var

  DC: HDC;

begin

  DC := Self.Canvas.Handle;

  SetTextColor(DC, clRed);

  SetBkMode(DC, TransParent);

  TextOut(DC, 50, 100, PAnsiChar('HELLO'), 5);

end;

lihuasoft 2008-03-24

打赏
举报



///方法一：还是用VCL，但是是动态生成的



procedure TForm1.FormCreate(Sender: TObject);

begin

  with TLabel.Create(Self) do begin

    Left := 50;

    Top  := 50;

    Caption := 'HELLO';

    Parent := Self;

    Visible := True;

  end;

end;





///方法二：用Canvas的TextOut方法画



procedure TForm1.FormPaint(Sender: TObject);

begin

  Self.Canvas.TextOut(100, 100, 'HELLO');

end;



///方法三：直接用API函数（与Canvas方法类似，略）

怎么样不用组件，直接用代码生成LABEL

相关推荐