Panel-Feld

[Nick Phoenix]

Hallo Leude :hi:
Für ein Spiel habe ich eine Spielfläche, die aus 24*24 Panels besteht. Gibt es eine Möglichkeit mit einer einzigen Prozedur herauszufinden auf welches Panel geklickt wurde oder muss ich umständlich für jedes einzelne Panel eine OnClick prozedur schreiben.

[roderich]

das Panel bekommst Du im OnClick über den Sender.

z.B.

Delphi-Quellcode:

  if (Sender is TPanel) then
    with Sender as TPanel do

Roderich

[Nick Phoenix]

Wie muss ich das denn als Prozedur deklarieren. Einfach in ein OnClick Ereignis der Panels einbinden ?

[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;

[hboy]

du kannst auch die Message abfangen. Wie das geht findest du bestimmt hier im Forum.