Problema en caption con Forma modal

[Kannon]

Hola a todos

Tengo este problema, tengo una ventana en la cual tengo un DBGRID que lista los programas de una universidad, ejemplo:

Código-----Nombre-----Jornada-----Cant. Semestres

034-----Ing. de Sistemas-----Diurna-----10

Para este tengo un Popup que cuando hace clic derecho en cualquier registro y aparece una opcion que dice "materias" Al hacer clic en el menu popup de materias se abre una ventana modal la cual muestra las materias de dicho programa. Me gustaria que el caption de dicha ventana diga: Materias de X Programa, lo cual intento hacerlo de la siguiente manera al momento de abrir la forma modal:

Código Delphi [-]
materiaS->ShowModal();
materiaS->Caption=DBGrid1->DataSource->DataSet->FieldByName("prog_nom_programa")->AsAnsiString;

Pero al momento de ejecutar la aplicación se realiza todo de manera correcta excepto que no aparece el caption que supuestamente me gustaría que aparezca, incluso si en las propiedades de dicha forma pongo un caption como determinado este tampoco aparece. la ventana aparece sin ningún titulo o caption.

[orodriguezca]

Creo que lo único que hay que hacer es invertir el orden del código:

Código Delphi [-]
materiaS->Caption=DBGrid1->DataSource->DataSet->FieldByName("prog_nom_programa")->AsAnsiString;
materiaS->ShowModal();

[Kannon]

Empezado por orodriguezca

Creo que lo único que hay que hacer es invertir el orden del código:

Código Delphi [-]
materiaS->Caption=DBGrid1->DataSource->DataSet->FieldByName("prog_nom_programa")->AsAnsiString;
materiaS->ShowModal();

Negativo, ya había intentado esa forma pero sigo sin resultados.

[ecfisa]

Hola Kannon.

Básicamente la llamada debería ser como te sugiere orodriguezca, te adjunto un pequeño demo por si revisarlo pudiera ayudarte.

Usé la tabla COUNTRY (BDE) ya que viene como ejemplo con Delphi y seguramente la tengas. El PopupMenu está asociado al DBGrid.

Saludos