Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: with sender

    Delphi
    by OldGrumpy, 10. Jul 2008
  Also nochmal zusammengefasst:
  
  
  Procedure TForm1.panelclick(Sender: TObject);
  Begin
  if (Sender as TPanel).BevelOuter = bvRaised then //integraler Typencheck mit as
  Begin
  //Typencheck hier schon erfolgt, daher nicht nochmal notwendig
  //kleiner Performancevorteil, hier zwar nicht relevant, aber trotzdem :)
  TPanel(Sender).BevelOuter := bvLowered;