Einzelnen Beitrag anzeigen

soulies

Registriert seit: 9. Dez 2005
234 Beiträge
 
#7

Re: Onclick-Ereignis (!??!??)

  Alt 10. Aug 2007, 12:39
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 ...
  Mit Zitat antworten Zitat