OnClick mit zwei Units

[himitsu]

Es sind normale VCL-Events und die müssen immer in einer Klasse liegen.
(procedure of object ... hier genauer ein TNotifyEvent)

Normale "procedure" sind hier garnicht möglich.

Delphi-Quellcode:

unit unit_unit2;

interface

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

type
  TMyEvents = class {vielleicht class(TDataModule) oder so}
    procedure Button2Click(Sender: TObject);
    class procedure Button3Click(Sender: TObject);
  end;

implementation

procedure TMyEvents.Button2Click(Sender: TObject);
begin
end;

class procedure TMyEvents.Button3Click(Sender: TObject);
begin
end;

Delphi-Quellcode:

// in Form1

// über Variable/Instanz (bei einem TDataModule könnte man es sogar im FormDesigner zuweisen)
Button2.OnClick := MyEvents.Button2Click;

// über Klasse
Button3.OnClick := TMyEvents.Button3Click;

Aber von Unit2 auf "Komponenten" der TForm1 zuzugreifen und das auch noch über die globale Variable Form1.

Dafür sollte man jemandem die Hände abhacken, wenn er das macht.

TMyEvents kann man ein Feld/Variable aufnehmen und z.B. die Instanz der Form1 via Constructor (Parameter) oder Property übergeben.
Aber da nur mit sowas wie einem Form1.SetTextXyz(), anstatt direkt auf Label1 zuzugreifen.
-> Ideal: Unit2 sollte es egal sein, wie die GUI von TForm1 aufgebaut ist. (dann knallt es z.B. auch nicht, wenn man in TForm1 mal das Label1 umbenennt)