摘要:
procedure TForm1.FormPaint(Sender: TObject);var //font: TFont; lf: TLogFont; I: Integer;begin Canvas.Font.Name:= 'Arial'; Canvas.Font.Size:= 24; Canvas.Font.Color:= clRed; //font:= TFont.Create...
阅读全文
posted @ 2009-04-18 21:50
zwz_good
阅读(173)
推荐(0)
posted @ 2009-04-18 17:14
zwz_good
阅读(187)
推荐(0)
摘要:
TControl作为控件类的根类提供的服务:1)TControl控件基本信息TControl开始加入控件的基本信息并使用持久化机制保存信息。TControl声明的Left、Top等控件信息并使用Published关键字输出以便让客户端存取。这些控件信息会自动被持久化。 TControl = class(TComponent) private FParent: TWinControl; ...
阅读全文
posted @ 2009-04-18 17:09
zwz_good
阅读(283)
推荐(0)
摘要:
在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性,有时你可能做了一个五颜六色的程序界面,而按钮颜色可能很不相称。 在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法,它遵循了Delphi的组件定义规则,完成后该按钮与普通按钮(Button)相比,多了一个Color属性,你可以永远地使用它,在设计阶段随意地改变颜色,就象是Delphi本身提供的组件...
阅读全文
posted @ 2009-04-18 11:22
zwz_good
阅读(435)
推荐(0)