[BCB5] Object als parameter van functie *

[Verwijderd]

Ik heb 35 aan/uit knoppen op 1 formulier; Voor elke knop moet ie de zelfde functie uitvoeren. even eenvoudig gezegd: als hij aan is moet de caption van de HUIDIGE knop hetzij "Aan" resp "Uit" worden..

Om nou 35 van die funties onder elkaar te zetten (voor elke knop 1), lijkt mij niet zo'n nette oplossing..

Heeft iemand daar een betere methode voor..??

[whoami]

De eventhandler van een OnClick event heeft een parameter 'Sender'. Die moet je eens bekijken.
Sender is nl. de control die verantwoordelijk is voor het triggeren van het event.

code:

void __fastcall TForm1::OnButtonClick(Object* Sender)
{
   (TButton)Sender->Caption = "Blaat";
}

Die method kan je dan aan de OnClick event hangen van al je buttons.

[curry684]

En als je het vervolgens slim doet sla je een uniek ID in de Tag v/d buttons op via de property inspector, en pak je het typesafe aan:

C++:

if(Sender->InheritsFrom(__classid(TButton)))
  {
  TButton*   l_Button = (TButton*)Sender;
  switch(l_Button->Tag)
    {
    // Cases per button
    }
  }

[Verwijderd]

Hmm.. ik heb het volgende geprobeerd:
Maar hij zegt 'Tag is not a member of TObject'

C++:

void __fastcall TfrmMain::imgClick(TObject *Sender)
{
  switch ((TImage)Sender->Tag)
  {
    case LIGHT_ON:
              (TImage)Sender->Canvas->Brush->Color = clSilver;
              (TImage)Sender->Canvas->Pen->Color = clGray;
              (TImage)Sender->Canvas->Pen->Width = 2;
              (TImage)Sender->Canvas->Ellipse (18-(LIGHT_SIZE/2), 18-(LIGHT_SIZE/2), LIGHT_SIZE, LIGHT_SIZE);
              (TImage)Sender->Tag = LIGHT_OFF;
    break;

    case LIGHT_OFF:
              (TImage)Sender->Canvas->Brush->Color = clLime;
              (TImage)Sender->Canvas->Pen->Color = clGreen;
              (TImage)Sender->Canvas->Pen->Width = 2;
              (TImage)Sender->Canvas->Ellipse (18-(LIGHT_SIZE/2), 18-(LIGHT_SIZE/2), LIGHT_SIZE, LIGHT_SIZE);
              (TImage)Sender->Tag = LIGHT_ON;
    break;
  }
}

[curry684]

C++:

switch ((TImage)Sender->Tag)

Allereerst wil je de Sender naar TImage POINTER casten dus je vergeet een sterretje. Helaas heeft de -> echter hogere precedence dan een cast, en dus komt die fout al niet boven daar je probeert de Tag van het TObject* uit te lezen. Haakjes dus:

C++:

switch (((TImage*)Sender)->Tag)

[curry684]

Uberhaupt, als je het 300 keer gaat doen, waarom kopieer je mijn eerste code niet Scheelt je een hoop RSI en is extra typesafe omdat je zeker weet welk type object je hebt voordat je cast.

[Verwijderd]

Het werkt..! Dank u vriendelijk..!