feststellen ob geklickt ohne Klick-Prozedur

[TheAn00bis]

Hi,

Ich habe 40Panels und will herausfinden, welches geklickt wurde. Natürlich könnte ich für jedes die onClick-Procedur festlegen und dann in eine Variable schreiben ob es geklickt wurde, allerdings wäre das bei der Menge sehr aufwändig. Gibt es eine andere Möglichkeit festzustellen, welche geklickt wurde? (so Ereignisprozedur artig - ich weiß nicht ob der Begriff in Delphi anwendbar ist)

[Dani]

Zitat von TheAn00bis:

Natürlich könnte ich für jedes die onClick-Procedur festlegen und dann in eine Variable schreiben ob es geklickt wurde, allerdings wäre das bei der Menge sehr aufwändig.

Du kannst doch einfach allen Panel dieselbe OnClick Prozedur zuweisen
(Designzeit: Panels markieren -> Ereignisse -> OnClick -> Doppelklick)

[TheAn00bis]

Und wie finde ich dann raus welches Panel es war das geklickt wurde?

[mirage228]

Zitat von TheAn00bis:

Und wie finde ich dann raus welches Panel es war das geklickt wurde?

OnClick hat einen Parameter "Sender", der gleich der Komponente ist, die geklickt wurde (bzw. von welcher die Aktion ausgeht). =

mfG
mirage228

[Dani]

Im OnClick Event gibt es den Parameter Sender. Dieses Objekt hat den Event ausgelöst.

[TheAn00bis]

Sorry, das ich mich vielleicht so dumm anstelle, aber wie kann ich den Namen des Senders in einer Variable speichern?

[mirage228]

Zitat von TheAn00bis:

Sorry, das ich mich vielleicht so dumm anstelle, aber wie kann ich den Namen des Senders in einer Variable speichern?

Hi,

z.B. so

Delphi-Quellcode:

var
  CompName: string;
begin
  if (Sender is TComponent) then
    CompName := TComponent(Sender).Name else
  CompName := Sender.Classname; // falls es keine Komponente ist
end;

mfG
mirage228

[Neutral General]

Sender : TObject

->

Delphi-Quellcode:

var DeinObject : TObject;

procedure TPanel1.Click(Sender : TObject);
begin
  DeinObject := Sender;
end;

So würde ichs machen

[Neutral General]

Zitat von mirage228:

Hi,

z.B. so

Delphi-Quellcode:

var
  CompName: string;
begin
  if (Sender is TComponent) then
    CompName := TComponent(Sender).Name else
  CompName := Sender.Classname; // falls es keine Komponente ist
end;

mfG
mirage228

Sokann man aber nicht auf das Panel zugreifen oder ??

[edit]Ups... Doppelpost [/edit]

[mirage228]

Zitat von Neutral General:

Zitat von mirage228:

Hi,

z.B. so

Delphi-Quellcode:

var
  CompName: string;
begin
  if (Sender is TComponent) then
    CompName := TComponent(Sender).Name else
  CompName := Sender.Classname; // falls es keine Komponente ist
end;

mfG
mirage228

Sokann man aber nicht auf das Panel zugreifen oder ??

Nun, er hat gefragt, wie er den Namen des Senders (= des Panels) speichern kann. Was er damit macht, weiss nicht.
Wenn man wieder das Panel haben will, muss man halt FindComponent verwenden.

mfG
mirage228