2008 年 5月 1 日随笔档案 - 万一

2008年5月1日

摘要：方法一(通过 Width、ClientWidth 推算): var frame,caption: Integer; begin frame := (Width - ClientWidth) div 2; caption := Height - ClientHeight - frame * 2; ShowMessageFmt('边框宽: %d; 标题高: %d', [frame,c... 阅读全文

posted @ 2008-05-01 22:15 万一阅读(12130) 评论(1) 推荐(0)

演示 Rect、Bounds 生成 TRect 的区别

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文

posted @ 2008-05-01 18:07 万一阅读(5514) 评论(4) 推荐(1)

创建异形窗口[6]

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure ... 阅读全文

posted @ 2008-05-01 11:24 万一阅读(3009) 评论(0) 推荐(0)