Panel-Feld

[Wheelie]

Du schreibst einfach eine Prozedur wie z.B. procedure TForm1.PanelAction(Sender: TObject); und bindest diese im Interface-Teil der Unit ein:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure PanelAction(Sender: TObject);

Jetzt weist du über den Objektinspektor jedem Panel genau diese Prozedur zu (Objektinspektor -> Ereignisse -> OnClick -> PanelAction).

Die Prozedur sollte wie von roderich schon erläutert beschrieben werden:

Delphi-Quellcode:

  if (Sender is TPanel) then
    with Sender as TPanel do
    begin
      Caption := 'Hallo!';
    end;