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.