Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 5. Dez 2003
  @choose,
  das hört sich ja langsam nach einem Beitag für die CodeLib an.
  
  
  
  
  Mit diesem Satz meinte ich aber Code, der nicht mit dem Objekt selbst in Verbindung steht.
  
  z.B. wird mal eine Prozedur oder andere Codezeilen nur abgearbeitet, wenn das Ereignis von einem Button ausgelöst wird, aber nicht, wenn es von einer CheckBox kommt ...
• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 5. Dez 2003
  @General2003: Ich hatte damit nur das Beispiel vom Anfang fortgesetzt und wie Bernd schon sagte war es halt nur eine theorisches Beispiel.
  
  
  @choose: OK, wenn das so aussieht, sieht es einfacher aus.
  Werd' mir das wohl mal für gleiche Teile merken, allerdings habe ich da auch meistens noch Code, der nicht bei allen Typen vorhanden ist, und das läßt sich ja leider nicht auf so eine Weise...
• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 5. Dez 2003
  Der arme Doc weiß jetzt eventuell nicht mehr was hier abgeht.
  
  Und ich bleibe dann wohl doch beim alten (kommt ja bei mir selten genug vor),
  da weiß/sehe ich wenigstens noch besser was dort passieren soll. :nerd:
  
  
  http://www.delphipraxis.net/images/common/divider.jpg
  http://www.FrankNStein.de/Smiley-Kuss.gif http://www.FrankNStein.de/Smiley-Spinne.gif ...
• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 5. Dez 2003
  Das mit dem BOOM: Dafür ist natürlich der Programierer verantwortlich. (Wenn es knallt, ist er/sie halt selber Schuld)
  
  OK, für Enabled ist das schon etwas übertrieben, aber bei Komponententypischen Eigenschaften (z.B.If Sender.ClassType = TButton Then Begin
  TButton(Sender).Caption := 'Text';
  ...) ist mit TControl(Sender).Caption nichts mehr los.
  ...
• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 4. Dez 2003
  :oops: Ausverseh'n 'Edit' an statt 'Zitat'
  (weiß aber nicht mehr genau was hier stand, dashalb nicht wundern)
  
  Vorher halt den Typ abfragen:
  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;
• Forum: Object-Pascal / Delphi-Language

  Re: Gemeinsame OnClick - Behandlung

    Delphi
    by himitsu, 4. Dez 2003
  Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif und herzlich willkommen in unserer DP-Gemeinde,
  
  also, es gibt verschiedene Möglichkeiten.
  
  Abfragen ob Sender ein bestimmtes Objekt ist:
  If Sender is Button1 Then ...
  
  Den Namen des Senders abfragen:
  If TButton(Sender).Name = 'Button1' Then ...