This is the first program I learned to learn Delphi, do it, please add it! Borrowing my good friend (Mr. Xia Huawei), is very simple. Written directly with ShowMessage, so it is extremely simple, the program code is as follows: Unit unit1;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, Winskindata, JPEG, ExtCtrls, Menus
type TForm1 = class (TForm) Button1: TButton; SkinData1: TSkinData; Button2: TButton; Label1: TLabel; Image1: TImage; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; procedure Button1Click (Sender: TObject); procedure Button2Click ( Sender: TOBJECT); Procedure N2Click (sender: TOBJECT); private {private declarations} end;
Var Form1: TFORM1;
Implementation Uses unit2; {$ r * .dfm}
Procedure tForm1.Button1Click (Sender: Tobject); Begin ShowMessage ('This person is called Xia Huawei'); ShowMessage ('Gender: Male'); SHOWMESSAGE ('Age: 24'); ShowMessage ('Marry: Not'); showMessage ('Probably so much, time is not waiting, this is terminated "); END;
Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT); begin close;
Procedure TFORM1.N2CLICK (Sender: TOBJECT); Begin Form2.ShowModal; End;
End. writes in 2004.5.25
