Prozedur ohne Direktverknüpfung zu TForm

[Theozh]

Hallo,
das ist sicher eine Anfängerfrage doch ich finde kein passendes Beispiel und kein geeignetes Tutorial. Ich weiß auch gar nicht, wonach ich suchen müsste...

Hier die vereinfachte Aufgabenstellung:
- Drei Schieberegler. Die Summe der Regler-Positionen soll addiert werden.
Wenn einer davon verändert wird, soll die Summe neu berechnet werden.

Ich dachte, ich könnte z.B. eine "procedure Summiere" schreiben, die jeweils in den Prozeduren TForm1.Trackbar1.Change, TForm1.Trackbar2.Change, TForm1.Trackbar3.Change aufgerufen wird. Es wäre ja unsinnig den Summen-Programmcode in jeder TrackBarChange-Prozedur zu duplizieren.

Was ist im unteren Code falsch? Wie und wo platziere ich die "procedure Summiere"? Diese Prozedur ist ja nicht direkt mit einem Objekt oder einem Event auf TForm1 verknüpft.
In welchem Tutorial unter welchem Thema werde ich fündig... oder hier vielleicht?

Code: Alles auswählen

unit Summe_unit;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Label1: TLabel;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  Summe: integer;
 
implementation
 
procedure Summiere;
begin
  Summe := TrackBar1.Position + TrackBar2.Position + TrackBar3.Position;
  Label1.Caption := IntToStr(Summe);
end;
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Summiere;
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  Summiere;
end;
 
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
  Summiere;
end;
 
end.

[theo]

Entweder die Prozedur wird eine Methode von TForm1 (also in Private deklarieren und dann procedure TForm1.Summiere schreiben) oder
du gibst in der Prozedur jeweils an, wessen Trackbar du meinst.

Also Form1.Trackbar1...

Prozedur Summiere weiss sonst nicht, welchen Trackbar du meinst, da sie ja nicht zu TForm1 gehört.

[Theozh]

...alles klar! Danke, funktioniert!

[MAC]

Schlau gedacht, aber es geht noch einfacher. Momentan ruft Trackbar1 ja Trackbar1Change, Trackbar2 ruft Trackbar2Change ,.. auf. Du kannst im Objektinspektor aber einstellen das alle 3 Trackbars die funktion "Trackbar1Change" aufrufen und schon hast du noch nen stück gespart...

[Theozh]

Aha, Danke, man lernt nie aus. Das setzt aber voraus, dass bei TrackBar 1,2,3 nicht jeweils noch spezifische Änderungen gemacht werden sollen. Aber für das obere Beispiel ist es so kürzer.
Warum kann ich aber im Objektinspektor nicht direkt einstellen, dass "Summiere" ausgeführt werden soll?
Wie muss ich "TForm1.Summiere" anlegen, dass es dort in der Auswahl erscheint?

[MmVisual]

Bei einer Objektorientierten Programmierumgebung muss das Objekt auch in dem Objekt drin sein damit man es in dem Objektinspektor von dem einen Objekt auswählen kann.

[theo]

Wie muss ich "TForm1.Summiere" anlegen, dass es dort in der Auswahl erscheint?

Rate mal? Einfach so wie der entsprechende Eventhandler

Code: Alles auswählen

procedure TForm1.Summiere(Sender: TObject);

[Euklid]

zudem sollte, wie Theo weiter oben beschrieben "procedure Summiere(Sender: TObject);" unter "private" gesetzt werden. An dieser Stelle eben ohne das TForm1 davor.