Eine Procedur für viele Buttons, wie? (gelöst)

[DeddyH]

Weil ein TBitBtn auch ein TButton ist. Du musst also ein else einfügen. Übrigens ist die Abfrage mit is und anschließendes Ansprechen mit as doppelt gemoppelt.

[edit] *Huch* wo kommen die Beiträge denn her? [/edit]

[SimonRap]

-->>
Logisch, nen BitBtn is auch nen Btn und fällt somit unter beide Bedingungen^^

Zitat von dominikkv:

Delphi-Quellcode:

if (Sender is TControl) then
  (Sender as TControl).width := 55;

die Variante is natürlich auch gut^^
Gar nich erst fragen, was es genau is, wenn TControl hat, einfach machen^^
an alle...
Problem gelöst

[DeddyH]

Wie ich schon sagte, man kann auch

Delphi-Quellcode:

if (Sender is  TControl) then
  TControl(Sender).width := 55;

schreiben, dann wird nicht doppelt geprüft.

[SimonRap]

bei TControl(Sender).width := 55; wird doch gar nix geprüft oder?
Genau das ist doch ohne Prüfung wenn ich das richtig verstanden habe oder?

[DeddyH]

Du hast doch in der Zeile darüber schon geprüft, ob es sich um ein TControl handelt, wieso also nochmal prüfen?

[mkinzler]

Aber (Sender as Tcontrol) schliesst die Überprüfung (is TControl) mit ein

[SimonRap]

aso, so meint ihr das, naja doppelt hält besser
ne ne habt ja recht^^
ok thx

bd simon