RadioButtons von 2 Forms gemeinschaftlich auswerten

[Claus.Meyer]

Ich habe zwei Forms (A und B)

auf den Form sind jeweils 3 Radio Buttons und ein Bild.

Bisher habe ich zwei nahezu identische Proceduren

FormA->RadioButton1->..... FormA->Picture....
FormA->RadioButton2->..... FormA->Picture....
FormA->RadioButton3->..... FormA->Picture....

und

FormB->RadioButton1->..... FormB->Picture....
FormB->RadioButton2->..... FormB->Picture....
FormB->RadioButton3->..... FormB->Picture....

Nun möchte ich eine gemeinsame Auswerte-Procedure schreiben, bei der praktisch FormA bzw. FormB als "Parameter" mit übergeben wird.
Wie kann ich es erreichen, dass die Procedure, je nach dem welche Form aktiv ist, die richtigen RadioButtons ausliest und das richtige Bild füllt?


Gruß Claus

[Fred Nest]

Salve!

Gegenfrage, was macht die auswertroutine?
Ansonsten evt. so
In beiden forms die radiobutton gleich benennen und eine globale funktion
Zur unterscheidung würde ich das Tag flag der forms benutzen oder dynamic_ cast
void(bool oder sonstwas) __fastcall ...::....( TForm * form )
{

if( form->Tag == .. ) // Form A
else // Form B

// bei dynamic_ cast

TFormA *fp = dynamic_cast<FormA *>(form);
if( fp )
{
}
else
{
TFormB *fp = dynamic_cast<FormB*>(form);
if( fp )
{
}
}

}


mfg
Fred