Onclick-Ereignis (!??!??)

[soulies]

wenn ich es richtig verstanden habe geht auch folgendes:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
var a : integer;
begin
     for a:=0 to ComponentCount-1 do
     begin
           if Components[a] is TEdit then (Components[a] as TEdit).Font.Style:=[];
           if Components[a] is TLabel then (Components[a] as TLabel).Font.Style:=[];
     end;

     edit1.Font.Style := [fsBold] ;
     label1.Font.Style := [fsBold] ;
end;

das könnte man nun in jedes OnClick Ereignis der Edits einpflegen ...