Gemeinsame OnClick - Behandlung

[Bernd Ua]

Moin,Moin

Zitat:

( "TButton(Sender)" und "(Sender as TButton)" kommt auf's Selbe raus )

Das mag ich so nicht stehen lassen. TButton(Sender) ist ein unsicherer Typecast ( zumindest bis Delphi 7)
und führt im günstigesten Fall zu Schutzverletzungen, wenn die Annahme nicht stimmt. Hier ist alles erlaubt
was dieselbe Grösse hat. d.h.
TButton(4).Caption := 'Bumm'; wird anstandlos kompiliert !
(Sender as TButton) ist dagegen ein sicherer Typecast und erzeugt eine Exception
EInvalidCast, wenn die Annahme mal falsch war, weil man das Ereignis mal woanders angeklemmt hat.

Ergo TButton(Sender) nur verwenden, wenn zumindest vorher mit is geprüft wurde
(BTW is ist besser als xxx.ClassType= yyy, auch wenn es minimal anders arbeitet).

Die Spagetti-if-else Geschichte :

Delphi-Quellcode:

If Sender.ClassType = TButton Then Begin
  TButton(Sender).Enabled := True; 
End Else If Sender.ClassType = TBitBtn Then Begin
  TBitBtn(Sender).Enabled := True; 
End Else If Sender.ClassType = TEdit Then Begin
  TEdit(Sender).Enabled := True; 
End Else If Sender.ClassType = TMemo Then Begin
  TMemo(Sender).Enabled := True; 
End;

kann man deutlich kürzen, wenn man sich auf den kleinsten gemeinsamen
Nenner der Klassen/Eigenschaften besinnt ( in diesem Fall TControl) und
mit is statt ClassType arbeitet.

Delphi-Quellcode:

if Sender is TControl then
    TControl(Sender).Enabled := false;
  else
    ...

SCNR , Bernd