Try this procedure TForm1.Button1Click(Sender:TObject); begin if Sender is TButton then (Sender as TButton).Color := clLime; end;
Then set the OnClick event for each button as Button1Click(Sender:TObject); -- Regards, Grant Brown Product Development Manager Phone : 02 4229 1185 Mobile : 0412 926 995 Email : [EMAIL PROTECTED] Web : www.sitedoc.com.au SiteDoc - Easy to Use - Powerful Results _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
