Einzelnen Beitrag anzeigen

dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Eine Procedur für viele Buttons, wie?

  Alt 8. Apr 2010, 14:11
Du musst generell auf den Typ Casten und kannst dann auf deren Eigenschaften zugreifen. Einen Cast kannst du generell über
TButton(Sender).Width machen. Wenn Sender jetzt aber nicht mit TButton kompatibel ist (also kein TButton ist oder nicht von TButton abgeleitet wurde) bekommst du eine hässliche Zugriffsverletzung. Um das ein bisschen schöner zu gestalten kannst du den Cast so machen:
(Sender as TButton).Width Wenn das jetzt fehlschlägt kommt eine vielsagende schöne Fehlermeldung. Überprüfen, ob du Sender auf TButton casten kannst, geht über
if (Sender is TButton) then Zu deinem Width-Problem: Width wird in TControl eingeführt. Du kannst also über
Delphi-Quellcode:
if (Sender is TControl) then
  (Sender as TControl).width := 55;
die Breite von TButton und von TBitBtn ändern, da TBitBtn auch von TControl abgeleitet ist.
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
  Mit Zitat antworten Zitat