![]() |
Delphi Handbooks Collection Delphi Developer Days 2012 March-May Cantù-Jensen (UK, NL, US, D, I) |
Menu for Development
|
|
| ||||||||||||||||||||||||
|
||||||||||||||||||||||||||
| Chapter 03 - Project Reintr |
Project Structure |
| Reintr.dpr |
program Reintr; uses Forms, ReintrF in 'ReintrF.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
| ReintrF.pas |
unit ReintrF; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyClass = class procedure One; overload; virtual; procedure One (I: Integer); overload; end; TMySubClass = class (TMyClass) procedure One; overload; override; procedure One (S: string); reintroduce; overload; end; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} { MyClass } procedure TMyClass.One; begin ShowMessage ('MyClass.One'); end; procedure TMyClass.One(I: Integer); begin ShowMessage ('Integer: ' + IntToStr (I)); end; { MySubClass } procedure TMySubClass.One; begin ShowMessage ('MySubClass.One'); end; procedure TMySubClass.One(S: string); begin ShowMessage ('String: ' + S); end; procedure TForm1.Button1Click(Sender: TObject); var Obj: TMySubClass; begin Obj := TMySubClass.Create; Obj.One; Obj.One (10); Obj.One ('Hello'); Obj.Free; end; end. |
| ReintrF.dfm |
object Form1: TForm1 Left = 192 Top = 107 Width = 182 Height = 127 Caption = 'Reintr' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 48 Top = 32 Width = 75 Height = 25 Caption = 'Test' TabOrder = 0 OnClick = Button1Click end end |