Others

Online on this issue a lot of posts, but often not very comprehensive, the author also encountered a lot of practical problems in the use, such as the parameters do not exist Ah, type no reference ah, and so on. Below I try to carefully to achieve

Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Extctrls;TypeTForm1 = Class (tform)Panel1:tpanel;Button1:tbutton;Procedure Button1Click (Sender:tobject);Procedure Panel1click

SysUtils.Now; SysUtils.Date; SysUtils.Time; SysUtils.CurrentYear; unit　Unit1; interface uses 　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms, 　Dialogs; type 　TForm1　=　class(TForm) 　　procedure　FormCreate(Sender:　TObject)

Sysutils.dayofweek ();Dateutils.monthoftheyear ();Dateutils.weekoftheyear ();Dateutils.weekofthemonth ();Dateutils.nthdayofweek ();Dateutils.dayoftheyear ();Dateutils.dayofthemonth ();Dateutils.dayoftheweek ();DateUtils.SysUtils.DayOfWeek

DateUtils.YearsBetween(); DateUtils.MonthsBetween(); DateUtils.WeeksBetween(); DateUtils.DaysBetween(); DateUtils.HoursBetween(); DateUtils.MinutesBetween(); DateUtils.SecondsBetween(); DateUtils.MilliSecondsBetween(); DateUtils.YearSpan();

Unit Unit1; Interface uses Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, comctr　 　 Ls,commctrl;　 　Type phd_notify=^hd_notify;　 　　TForm1 = Class (Tform)

Wonderful XOR or operation, on these simple code, repeatedly click on the button ...procedure TForm1.Button1Click(Sender: TObject); begin 　Canvas.Pen.Color := clYellow; {指定笔颜色为黄色} 　Canvas.Pen.Width := 20;　　　 {笔宽 20} 　Canvas.Pen.Mode := pmXor;　　

Statement of the first Overload:Textrect ( Rect:trect; Rectangle X, Y:integer; {Relative to the position of the form} Const text:string {text});{If the text you want to output exceeds the specified rectangle, it will not be displayed}

unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　Button2: TButton; 　　procedure FormCreate(Sender: TObject); 　　procedure

Add Panel1, PaintBox1, and Button1 to the form, as follows: procedure TForm1.Button1Click(Sender: TObject); var 　cvs: TCanvas; begin 　{PaintBox1 就像窗体一样, 也有 Canvas 属性} 　PaintBox1.Canvas.Brush.Color := clRed;

unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　Button2: TButton; 　　Button3: TButton; 　　Button4: TButton; 　　Button5: TButton;

Drawings need to have paper, brush, brush; Delphi has Canvas, Pen, Brush. Canvas is the canvas, such as the Canvas property of the form, the canvas of the form; Pen is a brush, you can set pen color, pen width, and so on; Brush is a brush, you

1. Static loading Procedure dosomething; External ' mylib. DLL '; 2. Dynamic loading Uses Windows,;Type Ttimerec = Record Second:integer; Minute:integer; Hour:integer; End Tgettime = procedure (var time:ttimerec); Thandle = Integer;

1.Class Fields Example 1 member variableType Tancestor = Class Value:integer; End Tdescendant = Class (Tancestor) value:string; Hides the Inherited Value field EndVar Myobject:tancestor;Begin MyObject: = tdescendant.create;

Unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　Button2: TButton; 　　Button3: TButton; 　　Button4: TButton; 　　procedure

Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Extctrls;TypeTForm1 = Class (Tform)Radiogroup1:tradiogroup;Procedure Formmousedown (Sender:tobject;

Class Unit unit Person; interface type 　TPerson = class(TObject) 　private 　　FName: string; 　　FAge: Integer; 　public 　　procedure SetName(const strName: string); 　　procedure SetAge(const intAge: Integer); 　　property Name: string read FName write

Class Unit unit NumBox; interface type 　TNumBox = class 　private 　　FCount: Integer; 　public 　　procedure AddOne; 　　procedure AddFive; 　　procedure ZeroCount; 　　function GetCount: Integer; 　end; implementation { TNumBox } procedure TNumBox.AddOne;

The author recently developed the system needs to write a download file function. Previously used BCB invoke API written very cumbersome, suddenly remembered that there is an API can be done, so early in the morning to search. This API is

A little bit of free time today, by the way, it's not something esoteric, but practical, it might be useful for friends who don't want third-party controls but want to add some effect. The effect of the implementation is as shown in figure: Step