test code sender object

Format Code

procedure Tfrmconnection.ehostnameEnter(Sender: TObject);
begin
  if sender is tedit then
  begin
   (sender as tedit).Color:=clSkyBlue ;
   (sender as tedit).font.Color:=clred ;
   (sender as tedit).Font.Style:=[fsbold];

  end;
end;

contoh penggunaan sender

Views: 36