unit TestFrameUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TTestFrame = class(TFrame)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    FText : string;
    procedure SetFText(const Value: string);
  public
    { Public 宣言 }
    procedure ShowDialog;
    property Text : string Read FText write SetFText;
  end;

implementation

{$R *.dfm}

//-----------------------------------------------------------------------------
//  Text プロパティの書き込み用メソッド
//  循環参照を回避するために、クラス内のグローバル変数に代入する
//-----------------------------------------------------------------------------
procedure TTestFrame.SetFText(const Value: string);
begin
  if FText <> Value then begin
    FText := Value;

    // Textプロパティの値が変わったら Edit.Text の値も変更
    Edit1.Text := FText;
  end;
end;

//=============================================================================
//  Edit1.Text に、処理した結果としての文字列を代入
//=============================================================================
procedure TTestFrame.Button1Click(Sender: TObject);
var
  LValue : string;
begin
  if FText.IsEmpty then begin
    LValue := ' 日本語';
  end else begin
    LValue := FText + ' 日本語';
  end;
  Edit1.Text := LValue;
end;

//-----------------------------------------------------------------------------
//  ShowDialog メソッド
//  Text プロパティの値を表示
//-----------------------------------------------------------------------------
procedure TTestFrame.ShowDialog;
var
  LText : string;
begin
  LText := 'Text プロパティの値' + sLineBreak + sLineBreak + FText;
  MessageBox(Handle, PChar(LText), 'プロパティの値', MB_ICONINFORMATION);
end;

end.

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TestFrameUnit in '..\..\Delphi_Frames\TestFrameUnit.pas' {TestFrame: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TestFrameUnit in 'D:\000\Delphi_Frames\TestFrameUnit.pas' {TestFrame: TFrame};

TestFrame1.Button1Click(Sender);

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  TestFrameUnit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    TestFrame1: TTestFrame;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TestFrame1Button1Click(Sender: TObject);
    procedure TestFrame1Edit1Change(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  TestFrame1 上の Edit1 ( TEdit ) に文字列をセット
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  TestFrame1.Edit1.Text := 'テスト文字列';
end;

//=============================================================================
//  (1) TestFrame1 の Text プロパティに文字列を代入
//  (2) TestFrame1 の ShowDialog メソッドを実行
//      ShowDialog メソッドは Text プロパティの値を表示するメソッド
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  TestFrame1.Text := '意味不明な文章';
  TestFrame1.ShowDialog;
end;

//=============================================================================
//  TestFrame1 の Button1 クリックイベント
//  TestFrame1 の元の Button1 クリックイベントのコードを実行
//  一般のコンポーネント (クラス) における、継承元のコードの実行に相当する機能
//
//  TestFrame1.Button1Click(Sender); は、
//  フレーム内部で処理した文字列をフレームの Edit1 に表示
//=============================================================================
procedure TForm1.TestFrame1Button1Click(Sender: TObject);
begin
  TestFrame1.Button1Click(Sender);
end;

//=============================================================================
//  TestFrame1 の Edit1 の OnChange イベント
//=============================================================================
procedure TForm1.TestFrame1Edit1Change(Sender: TObject);
begin
  // このフォームの Edit1.Text の値を TestFrame1 の Edit1.Text の値と同じにする
  Edit1.Text := TestFrame1.Edit1.Text;

  // または
  // Edit1.Text := TEdit(Sender).Text;
end;

end.

//=============================================================================
//  Button1 クリックの処理結果としての文字列を親コントロールに送信
//=============================================================================
procedure TTestFrame.Button1Click(Sender: TObject);
var
  LValue    : string;
  LCopyData : TCopyDataStruct;
begin
  LValue := '処理結果のデータ';

  LCopyData.dwData := 1234;
  LCopyData.cbData := (Length(LValue) + 1) * SizeOf(Char);
  LCopyData.lpData := Pointer(LValue);

  SendMessage(Parent.Handle, WM_COPYDATA, Handle, LPARAM(@LCopyData));
end;

//----------------------------------------------------------------------------
//  データの受信処理
//  宣言部は以下
//  procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
//----------------------------------------------------------------------------
procedure TForm1.WMCopyData(var Message: TWMCopyData);
var
  LText : string;
begin
  if Message.CopyDataStruct.dwData = 1234 then begin
    LText := PChar(Message.CopyDataStruct.lpData);
    LText := FindControl(Message.From).Name + ' からの受信文字列' + sLineBreak + LText;

    MessageBox(Handle, PChar(LText), 'データ受信', MB_ICONINFORMATION);
  end;
end;

//=============================================================================
//  フォームに配置した TestFrame1 の Button1 のクリックイベント
//=============================================================================
procedure TForm1.TestFrame1Button1Click(Sender: TObject);
var
  LValue : Integer;
begin
  // GetDataFunc は、フレームのクラスに実装した Integer 型の値を返す関数
  LValue := TestFrame1.GetDataFunc;
end;

//=============================================================================
//  フォームに配置した TestFrame1 の Button2 のクリックイベント
//=============================================================================
procedure TForm1.TestFrame1Button2Click(Sender: TObject);
var
  LValue : Integer;
begin
  // GetDataProc は、フレームのクラスに実装した手続き
  // LValue を var 渡しにしておけば処理結果の取得が可能
  TestFrame1.GetDataProc(LValue);
end;

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TestFrameUnit in '..\..\Delphi_Frames\TestFrameUnit.pas' {TestFrame: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TestFrameUnit in '..\..\Delphi_Frames\TestFrameUnit.pas' {TestFrame: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  TestFrameUnit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    FFrame : TTestFrame;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  テスト用のフレームを生成
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  FFrame := TTestFrame.Create(Self);

  FFrame.Parent := Self;
  FFrame.Left := Button1.Left;
  FFrame.Top := 70;
  FFrame.ParentBackground := False;
  FFrame.Color := clWindowFrame;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  TestFrameUnit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
    procedure FrameButton1OnClick(Sender: TObject);
    procedure FrameEdit1OnChange(Sender: TObject);
  public
    { Public 宣言 }
    FFrame : TTestFrame;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  テスト用のフレームを生成
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  FFrame := TTestFrame.Create(Self);

  FFrame.Parent := Self;
  FFrame.Left := Button1.Left;
  FFrame.Top := 70;
  FFrame.ParentBackground := False;
  FFrame.Color := clWindowFrame;

  // FFrame 上のコントロール類のイベント用
  FFrame.Button1.OnClick := FrameButton1OnClick;
  FFrame.Edit1.OnChange  := FrameEdit1OnChange;
end;

//=============================================================================
//  FFFrame 上の Edit1 ( TEdit ) に文字列をセット
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  FFrame.Edit1.Text := 'テスト文字列';
end;

//=============================================================================
//  (1) FFrame の Text プロパティに文字列を代入
//  (2) FFFrame の ShowDialog メソッドを実行
//     ShowDialog メソッドは Text プロパティの値を表示するメソッド
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  FFrame.Text := '意味不明な文章';
  FFrame.ShowDialog;
end;

//-----------------------------------------------------------------------------
//  FFrame の Button1 クリックイベント用のメソッド
//  FFrame の元の Button1 クリックイベントのコードを実行
//  一般のコンポーネント (クラス) における、継承元のコードの実行に相当する機能
//
//  FFrame.Button1Click(Sender); は、
//  フレーム内部で処理した文字列をフレームの Edit1 に表示
//-----------------------------------------------------------------------------
procedure TForm1.FrameButton1OnClick(Sender: TObject);
begin
  FFrame.Button1Click(Sender);
end;

//-----------------------------------------------------------------------------
//  FFrame の Edit1 の OnChange イベント用のメソッド
//-----------------------------------------------------------------------------
procedure TForm1.FrameEdit1OnChange(Sender: TObject);
begin
  // このフォームの Edit1.Text の値を FFrame の Edit1.Text の値と同じにする
  Edit1.Text := FFrame.Edit1.Text;

  // または
  // Edit1.Text := TEdit(Sender).Text;
end;

end.

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

  function TestFunc: Integer;
  procedure TestProc;

var
  Form2: TForm2;

implementation

{$R *.dfm}

//-----------------------------------------------------------------------------
//  この関数は、クラスのメンバーではないので、メソッドでもイベントでもない
//-----------------------------------------------------------------------------
 function TestFunc: Integer;
 begin
   Result := 123456;
 end;

//-----------------------------------------------------------------------------
//  この手続きは、クラスのメンバーではないので、メソッドでもイベントでもない
//-----------------------------------------------------------------------------
procedure TestProc;
begin
  // 何かの処理
end;

end.

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  LInt : Integer;
  LStr : string;
begin
  LInt := testFunc;

  // ユニット名を省略しない場合
  LInt := Unit2.testfunc;

  // System.SysUtils.IntToStr(LInt) としなくても動作する
  LStr := IntToStr(LInt);
end;

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  LInt  : Integer;
  LText : string;
begin
   // TestFunc は TForm2 のメンバではない
   // TForm2 の継承元にも TestFunc というメソッドは存在しない
   // コンパイル時に TestFunc は「未定義の識別子」のエラーとなる
   LInt := Form2.TestFunc;

  // Caption は TForm2 にはないが、継承元のクラスにあるのでエラーにならない
  LText := Form2.Caption;
end;

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    function TestFunc: Integer;
    procedure TestProc;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

//-----------------------------------------------------------------------------
//  この関数は、クラスのメンバーなのでメソッド
//  関数名の前のクラス名は、このクラスのメソッドであることを意味しいる
//-----------------------------------------------------------------------------
function TForm2.TestFunc: Integer;
begin
   Result := 123456;
end;

//-----------------------------------------------------------------------------
//  この手続きは、クラスのメンバーなのでメソッド
//  手続き名の前のクラス名は、このクラスのメソッドであることを意味しいる
//-----------------------------------------------------------------------------
procedure TForm2.TestProc;
begin
  // 何かの処理
end;

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  LInt  : Integer;
  LText : string;
begin
   // From2 は、クラス名が TForm2 のフォームのインスタンス
   LInt := Form2.TestFunc;

   // Button1 は、TButton コンポーネントのインスタンス
   LText := Button1.Caption;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;  // Button1 は、フォームに配置した TButton のインスタンス名
    Button2: TButton;  // Button2 は、フォームに配置した TButton のインスタンス名
    Panel1: TPanel;    // Panel1 は、フォームに配置した TPanel のインスタンス名
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
    FPanel : TPanel;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Panel1 の Color プロパティの値が反映できるようにする
  Panel1.ParentBackground := False;
end;

//=============================================================================
//  Panel1 の Color プロパティの値を設定
//  Panel1 は、TPanel のインスタンス
//  フォームに配置したコントロールは自動的にインスタンスが生成される
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Color := clGreen;
end;

//=============================================================================
//  FPanel の Color プロパティの値を設定
//  FPanel は、TPanel 型の変数
//  変数を宣言しただけではインスタンスは生成されない
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  FPanel.Color := clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(FPanel) then begin
    FPanel.Color := clRed;
  end;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    TButton : TPanel;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  TButton := TPanel.Create(Self);
  TButton.Parent := Self;
  TButton.SetBounds(30, 50, 150, 60);
  TButton.ParentBackground := False;
end;

//=============================================================================
//  Button1 の Onclick イベント処理
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton.Color := clGreen;

  // TButton は変数として使用しているのでコンパイルエラーとなる
  // この型には指定した演算子は使えません
  if Sender is TButton then begin

  end;
end;

procedure  TForm1.Button1Click(Sender: TObject);
begin
//
end;

//=============================================================================
//  フォーム生成時の処理
//  Button2 の OnClick イベントを無効にする
//  オブジェクトインスペクタの該当イベントの部分を空にするのと同じ
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button2.OnClick := nil;
end;

//=============================================================================
//  Button2 の OnClick イベントのコードをメソッドとして実行
//  Button2 の OnClick イベントが発生するわけではない
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2Click(Sender);
end;

//=============================================================================
//  このイベントは、フォーム生成時に無効にしたので発生しない
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LText : string;
begin
  LText := 'Sender : ' + TControl(Sender).Name;
  MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
end;

//=============================================================================
//  CheckBox1 の OnClick イベントのコードをメソッドとして実行
//  CheckBox1 の OnClick イベントが発生するわけではない
//  したがって、CheckBox1 のチェック状態は変化しない
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1Click(Sender);
end;

//=============================================================================
//  CheckBox1 の OnClick イベント
//  このイベントが発生する度に CheckBox1 のチェック状態が変わる
//=============================================================================
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  LText : string;
begin
  LText := 'Sender : ' + TControl(Sender).Name + sLineBreak
         + BoolToStr(CheckBox1.Checked, True);
  MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
end;

  // Button1 をクリックする
  SendMessage(Button1.Handle, BM_CLICK, 0, 0);
  // または
  Button1.Perform(BM_CLICK, 0, 0);

  // CheckBox1 をクリックする
  SendMessage(CheckBox1.Handle, BM_CLICK, 0, 0);
  // または
  CheckBox1.Perform(BM_CLICK, 0, 0);

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1Click(Sender);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  LText : string;
begin
  LText := 'Sender : ' + TControl(Sender).Name + sLineBreak
         + BoolToStr(CheckBox1.Checked, True);
  MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
end;

end.