Marco Cantù 1998, Mastering Delphi 4
Project: ACTIVEB.DPR
Project Structure
ACTIVEB.DPR
program ActiveB;
uses
Forms,
ActiveF in 'ActiveF.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
ACTIVEF.PAS
unit ActiveF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Md4ActiveBtn;
type
TForm1 = class(TForm)
Md4ActiveButton1: TMd4ActiveButton;
Md4ActiveButton2: TMd4ActiveButton;
Md4ActiveButton3: TMd4ActiveButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
ACTIVEF.DFM
object Form1: TForm1
Left = 192
Top = 107
Width = 314
Height = 340
Caption = 'Active Button Demo'
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 Md4ActiveButton1: TMd4ActiveButton
Left = 72
Top = 40
Width = 153
Height = 49
Caption = 'Md4ActiveButton1'
TabOrder = 0
end
object Md4ActiveButton2: TMd4ActiveButton
Left = 72
Top = 104
Width = 153
Height = 57
Caption = 'Md4ActiveButton2'
TabOrder = 1
end
object Md4ActiveButton3: TMd4ActiveButton
Left = 72
Top = 176
Width = 153
Height = 57
Caption = 'Md4ActiveButton3'
TabOrder = 2
end
end
Copyright Marco Cantù 1998