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]

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

Zitat:

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^^
:thumb: an alle...
Problem gelöst :dance:

[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

Delphi-Quellcode:

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