Dank für die schnellen Antworten!
Da ich nicht sehr firm bin in Delphi (man merkt es),
habe ich mich bestimmt unklar ausgedrückt
Die Lables in dem Array sollen in der Tat zur Laufzeit erzeugt werden.
Die Frage nach click ist verständlich. Ursprungscode war:
Code:
procedure TForm1.Label10Click(Sender: TObject);
begin
if click = 3 then label10.color := clRed;
{bei weiteren Clicks wird zyklisch eine andere Farbe angezeigt}
Bzgl. LLabel.OnClick := LabelsClick; // <- Event zuweisen
muss ich noch an der Umsetzung in mein Programm arbeiten.
Die Anweisung
Code:
protected
procedure LabelsClick( Sender : TObject );
erzeugt bei mir die Fehlermeldung
Code:
[Error] Unit1.pas(33): Unsatisfied forward or external declaration: 'TForm1.LabelsClick'
Aber ich arbeite weiter daran.
Gruß wovo