親コンポーネント上にある子コンポーネント間の変化を相互に反映させ合うには？ (ID:33014)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

コンポーネント開発について学習を始めました。

トラックバーが動くとエディットに整数値が表示され、
エディットに整数値が入力されるとトラックバーのつまみが移動する
という、変化を相互に反映させ合うコンポーネントを作ってみようと考えました。

親コンポ(TPanel)の上に子コンポ(TTrackBarとTEdit)を置きました。

ここで２つ分からないことがあります。
①トラックバーが変化したとき、トラックバーのつまみの位置をエディットに反映させるのことになる。そのイベントやプロパティ、プロシージャは？
②エディットに整数値を入れたとき、トラックバーのつまみの位置にどのようにして反映させることになる。そのイベントやプロパティ、プロシージャは？

教えてください。

以下がそのソースです。

unit PanelTrackBarEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,ComCtrls,StdCtrls;

type
  TPanelTrackBarEdit = class(TPanel)
  private
    { Private 宣言 }
    FTrackBar: TTrackBar;
    FEdit: TEdit;
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    constructor Create( AOwner: TComponent); override;
  published
    { Published 宣言 }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TPanelTrackBarEdit]);
end;

constructor TPanelTrackBarEdit.Create( AOwner: TComponent);
begin
  inherited Create(AOwner);
  width:= 190;
  height:= 30;//100;

//TrackBarを作成
  FTrackBar:= TTrackBar.Create(self);
  FTrackBar.Parent:= self;
  FTrackBar.Top:= 2;
  FTrackBar.Left:= 2;

//Editを作成
  FEdit:= TEdit.Create(self);
  FEdit.Parent:= self;
  FEdit.top:=2;
  FEdit.Left:= 150;
  FEdit.Width:= 30;
  FEdit.Text:= inttostr(FTrackBar.position);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る