Delphi-Quellcode:
type
Thallo = Class;
constructor Create;
procedure blabla...
procedure OnLalaClick(sender: TObject);
private
[b]lala: array [1..10] of TPanel;[/b]
end;
implementation
constructor THallo.Create;
var i : integer;
begin
for i:= 1 to high(lala) do
lala[i].OnClick := OnLalaClick;
end;
procedure THallo.OnLalaClick(sender: TObject);
begin
// hier wird reingelaufen wenn auf lala geclickt wird...
end;
Ich hab das noch mal nen bissel abgewandelt, um ein weiteres Problem erklären zu können, das sich mir stellt! Wie kann ich innerhalb der Prozedur
OnLalaClick den Namen des Panels herausfinden, auf welches geklickt wurde? Eigentlich dachte ich mir, dass eben genau diese Information durch den Parameter Sender übergeben wird, aber der ist ja vom Typ TObject.
Das leuchtet mir nur ein, wenn Thallo so etwas wie eine Vererbung von TObject ist?! Um auszuprobieren ob Sender aber wirklich dem Panel entspricht, habe ich unter OnLalacClick einmal versucht, den Panel zu löschen mit Sender.free. Hat funktioniert, nur bringt mich das auch nicht weiter
Über konstruktive Beiträge würde ich mich sehr freuen! Im Gegenzug sei meine Unwissenheit zu entschuldigen
Sandro