TPanel als Sender Casten

[hoika]

Halo,
um das Bsp. von jziersch fortzuführen.

Gib allen dein OnClick-Events über den Objektinspektor das Panel0Click. Die anderen PanelXClick-Methoden können gelöscht werden.
Dann bekommen alle Panels auch über den Objektinspektor im Property Tag die entsprechende Nummer (0-9).

Delphi-Quellcode:

procedure TForm1.Panel0Click(Sender: TObject);
var
  Panel: TPanel;
begin
  if Sender is TPanel then
  begin
    Panel := TPanel(Sender);  // Sender auf TPanel casten
    resultedit.Text := resultedit.Text + IntToStr(Panel.Tag);
  end;
end;

Die lokale Variable Panel dient der Übersicht, kann aber auch weggelassen werden.
Das is dient zur Absicherung, dass es wirklich ein TPanel ist.