1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit GaugeCaption;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, Gauges, StrUtils;

type
  TTemperature= (tNormal, tDegradado, tTemperatura);
  TPosicion= (poIzquierda, poDerecha);
  TGaugeKind = (gkText, gkHorizontalBar, gkVerticalBar, gkPie, gkNeedle);

  TGaugeCaption = class(TGauge)
  private

  FMinValue: Longint;
  FMaxValue: Longint;
  FCurValue: Longint;
  FKind: TGaugeKind;
  FShowText: Boolean;
  FBorderStyle: TBorderStyle;
  FBorderWidth: TBorderWidth;

//---nun dachte ich an sowas-----//
         FButton1: TButton;
         FButton2: TButton;
//--- aber wie kann ich die Buttons in die Graphic einbinden bzw wie komm ich an die eigenschaften?---//                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

unit ButtonGauge;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, Gauges, StrUtils;


  TButtonGauge = class(??????)                    

1:
2:
3:
4:
5:
6:

  TMyGauge = class(TCustomPanel)
    private
    ....
    protected
    procedure Paint(var Message: TWMPaint); Message WM_PAINT;
    ....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

type TOnBtnClickEvent= procedure (GaugeMax, GaugeMin, GaugePos: integer) of object;

type TGaugeButton=class
  private
    Btn: TButton;
    Gauge: TGauge;

    VOnBtnClick: TOnBtnClickEvent;
    VLeft: integer;

    procedure SetLeft (v: integer);

    procedure InternalOnBtnClick(Sender: TObject);
  public
    constructor Create( Owner: TWinControl);
    property Left: integer read VLeft write SetLeft; 
    property OnBtnClick: TOnBtnClickEvent read VOnBtnClick write VOnBtnClick;
end;

...

constructor TGaugeButton.Create (Owner: TWinControl);
begin
  Gauge:=TGauge.Create(Owner);
  Gauge.Parent:=Owner;

  Btn:=TButton.Create(Owner;
  Btn.Parent:=Owner;
  Btn.OnClick:=InternalOnBtnClick;

  //eventuell noch default positionen setzen
end;

procedure TGaugeButton.InternalOnBtnClick(Sender: TObject);
begin
  if Assigned(OnBtnClick) then
     VOnBtnClick( Gauge.Min, Gauge.Max, Gauge.Pos);
end;

procedure TGaugeButton.SetLeft (v: integer);
begin
  Gauge.Left:=v;
  Btn.Left:=v+5;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

GBtn: TGaugeButton;
begin
  GBtn:= TGaugeButton.Create(Form1);
  GBtn.Left:=100;
  GBtn.OnBtnClick := OnGaugeBtnClick;
end;

procedure TForm1.OnGaugeBtnClick(GaugeMax, GaugeMin, GaugePos: integer);
begin
  ShowMessage('Gauge filled at '+floattostr( (GaugeMax-GaugeMin)/(GaugePos-GaugeMin)*100 )+'%');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

....
   property Position: Integer read FPosition write SetPosition;
  Property OnButtonClick:TnotifyEvent read FButtonClick write FButtonClick;
  end;

  TForm259 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FMyGauge: TMyGauge;
  public
    { Public declarations }
  end;

var
  Form259: TForm259;

implementation

{$R *.dfm}

{ TMyGauge }


Procedure TMyGauge.InternalClick(Sender:TObject);
begin
// hier gegf. interne Routinen
    if Assigned(FButtonClick) then FButtonClick(Sender);
end;

constructor TMyGauge.Create(AOwner: TComponent);
begin
  inherited;
  DoubleBuffered := True;
  FButton := TButton.Create(Self);
  FButton.OnClick := InternalClick;
  FButton.Left := 10;
 
....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type TGaugeBtn = class(TButton)
  private
    Gauge: TGauge;
  
    procedure SetPosition(V: integer);
    function GetPosition: integer;
 
    constructor Create( Owner: TWinControl );
    destructor  Destroy;
  public
    property Position: integer read GetPosition write SetPosition;
end;

constructor TGaugeBtn.Create( Owner: TWinControl );
begin
  inherited Create(Owner);

  Gauge:=TGauge.Create(Owner);
  Gauge.Left:=Self.Left;
  Gauge.Top:=Self.Top+Self.Height;
  Gauge.Width:=Self.Width;
  Gauge.Height:=Self.Height;
  Gauge.Parent:=Owner;
end;

destructor TGaugeBtn.Destroy;
begin
  Gauge.Free;
  Gauge:=nil;

  inherited Destroy;
end;

procedure TGaugeBtn.SetPosition(V: integer);
begin
  Gauge.Progress:=V;
end;

function TGaugeBtn.GetPosition:integer;
begin
  Result:=Gauge.Progress;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Btn1.OnClick:= SetBtnClick;
Btn2.OnClick:= SetBtnClick;
....
....
procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   //if Tbutton(sender). then
   FBtnClick:= TButton(Sender).Name;
    
end;                    

1:
2:
3:
4:
5:

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if Assigned(FBtnClick) then
     FBtnClick( Sender );      
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type TWelcherButtonWurdeGeklickt = (bcButton1WurdeGeklickt ,bcButton2WurdeGeklickt, bcBugInKomponente );
//...
procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if Assigned(FBtnClick) then
     begin
        if Btn1=Sender then
          FBtnClick( bcButton1WurdeGeklickt )
        else if Btn2=Sender then
          FBtnClick( bcButton2WurdeGeklickt )
        else
          FBtnClick( bcBugInKomponente)
      end;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

unit GaugeButton;

interface

uses
    SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, StrUtils, Gauges;

type
   TGaugeKind = (gkHorizontalBar, gkVerticalBar);
   TGaugeButton = class(TCustomControl)

   private
       FBtnClick: TObject;
       ....
       ....
   protected
       ....
   public
       ....
       procedure SetBtnClick(Sender: TObject);
   published
       ...
end;

implementation

....
....

constructor TGaugeButton.Create (AOwner: TComponent);
begin
   inherited Create(AOwner);
   ... //<-- hier alles was für die Gauge wichtig ist
   ...
   
   FBtnFont:= TFont.Create; //<-- für die button

   Btn1:= TButton.Create(Self);
   Btn1.Parent:= Self;
   Btn1.Name:= 'Btn1';
   Btn1.OnClick:= SetBtnClick; //<-- zuweisung an die procedure
   Btn1.Font:= FBtnFont;
   ....
   ....
end;

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
  if Assigned(FBtnClick) then
    FBtnClick:= (Sender);

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

TForm1.GaugeButton1Click(Sender: TObjekt);
begin
  If TGaugeButton(Sender).Name = 'ButtonGauge1' then
  begin
     if FBtnClick = ??? then
       //btn1 würde geklickt mache was
     else
       //btn2 wurde geklickt mache was anderes 
  end
  else
  If TGaugeButton(Sender).Name = 'ButtonGauge2' then
  begin
     if FBtnClick = ??? then
       //btn1 würde geklickt mache was
     else
       //btn2 wurde geklickt mache was anderes 
  end
   

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

public
    property BtnClick: String read FBtnClick;

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if TButton(sender).Name = 'Btn1' then
      FBtnClick:= 'Btn1'
   else
     FBtnClick:= 'Btn2';

   onclick(self);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type TButtonClicked = (btButton1, btButton2);

type TGaugeButtonClickEvent=procedure (Sender: TObject; Clicked: TButtonClicked) of object;

type TGaugeButton=class
//...
  private
     VOnButtonClick : TGaugeButtonClickEvent;
//...
     procedure ButtonClick(Sender: TObject);
  public
     property OnButtonClick: TGaugeButtonClickEvent read VOnButtonClick write VOnButtonCLick;
//...
end;

//...

constructor TGaugeButton.Create(...);
begin
  //...
  Btn1.OnClick:=ButtonClick;
  Btn2.OnClick:=ButtonClick;
  //...
end;

procedure TGaugeButton.ButtonClick (Sender: TObject);
begin
  if Assigned( VOnButtonClick) then
    begin
      if Sender=Btn1 then
         VOnButtonClick( Self, btButton1 ) 
      else if Sender=Btn2 then
         VOnButtonClick( Self, btButton2 );
    end;
end;

//...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type TForm1=class
//...
   procedure GaugeButtonClick( Sender: TObject; Clicked: TButtonClicked);    

//...
GaugeButton1.OnButtonClick:= GaugeButtonClick;
GaugeButton2.OnButtonClick:= GaugeButtonClick;
//...

procedure TForm1.GaugeButtonClick (Sender: TObject; Clicked: TButtonClicked);
begin
  if Sender = GaugeButton1 then
     begin
       if Clicked=btButton1 then
         ShowMessage('Gauge1 - Button1 clicked')
       else if Clicked=btButton2 then
         ShowMessage('Gauge1 - Button2 clicked');
     end
  else if Sender = GaugeButton2 then
     begin
       if Clicked=btButton1 then
         ShowMessage('Gauge2 - Button1 clicked')
       else if Clicked=btButton2 then
         ShowMessage('Gauge2 - Button2 clicked');
     end; 
end;                    

1:
2:

if Sender = Button1 then
  ...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

type
    TBtnClicked = (bcNoBtn, bcBtn1, bcBtn2);
    TGaugeButtonClickEvent = procedure (Sender: TObject; Clicked: TBtnClicked) of object;
    
    TGaugeButton = class(TCustomControl)    
  private 
    
    FBtnClick : TGaugeButtonClickEvent;
    ....
    ....
    Btn1: TButton;
    Btn2: TButton;
    .... 
    procedure SetBtnClick(Sender: TObject);
    ....

  protected
  .....
  public
  ....
  ....

  published
  ....
  ....
  property OnBtnClick: TGaugeButtonClickEvent read FBtnClick write FBtnCLick;

end;


implementation

.....
.....

constructor TGaugeButton.Create (AOwner: TComponent);
begin
    inherited Create(AOwner);
    OnClick:= SetBtnClick;
    ....
    ....
    
    Btn1:= TButton.Create(Self);
    Btn1.OnClick:= SetBtnClick;
    ....
    ....

    Btn2:= TButton.Create(Self);
    Btn2.OnClick:= SetBtnClick;
    ....
    ....
end;

procedure TGaugeButton.SetBtnClick (Sender: TObject);
begin
    if Assigned(FBtnClick) then
    begin
        if Sender = Btn1 then
           FBtnClick(Self, bcBtn1)  //<--Button1 wurde geklickt
        else
        if Sender = Btn2 then
           FBtnClick(Self, bcBtn2)  //<--Button2 wurde geklickt
        else
           FBtnClick(Self, bcNoBtn);  //<--es wurde in der Gauge geklickt
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type
  TBtnClicked = (bcNoBtn, bcBtn1, bcBtn2, bcPlay, bcStop);
  TGaugeButtonClickEvent = procedure (Sender: TObject; Clicked: TBtnClicked) of object;

private
        FBtnClick: TGaugeButtonClickEvent;
        .....
        procedure SetBtnClick(Sender: TObject);
published

  property OnBtnClick: TGaugeButtonClickEvent read FBtnClick write FBtnCLick;

.....
.....

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
  if not Assigned(FBtnClick) then //Original war es mal so: if Assigned(FBtnClick) then 
  begin                           // aber da Passiert gar nichts mehr 
    if Sender = Btn1 then
      FBtnClick(Self, bcBtn1)
    else
    if Sender = Btn2 then
      FBtnClick(Self, bcBtn2)
    else
    if TSpeedButton(Sender).Name = 'BtnPLay1' then// hier akzeptiert er komischer weise nicht
    begin                                         //Sender = BtnPlay1, undefinierter Bezeichner??? 
      //if BtnPlay.Glyph.Handle=
      BtnPlay.Glyph.LoadFromResourceName(hInstance, 'Bild4');
      BtnStop.Enabled:= True;
      FBtnClick(Self, bcPlay);

    end
    else
    if TSpeedButton(Sender).Name = 'BtnStop1' then
    begin
       BtnStop.Enabled:= True;
       BtnPlay.Glyph.LoadFromResourceName(hInstance, 'Bild3');
       FBtnClick(Self, bcStop);
    end
    else
    begin
      FBtnClick(Self, bcNoBtn);
      TGaugeButton(Sender).SetFocus;
    end;
  end;
end;                    

1:
2:
3:
4:
5:

  if not Assigned(FBtnClick) then //Original war es mal so: if Assigned(FBtnClick) then 
  begin                           // aber da Passiert gar nichts mehr 
    if Sender = Btn1 then
      FBtnClick(Self, bcBtn1)
    else                    

1:
2:
3:
4:
5:
6:
7:

OnClick:= SetBtnClick;
....
....
Btn1.OnClick:= SetBtnClick;
Btn2.OnClick:= SetBtnClick;
BtnPlay.OnClick:= SetBtnClick;
BtnStop.OnClick:= SetBtnClick;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button2Click(Sender: TObject);
begin
  With TGaugeButton.Create(self) do
    begin
      Parent := Self;
      OnBtnClick := ButtonClick;
    end;
end;