6 replies to this topic

[FGarcia]

Bueno, se trata de esto, Tengo un componente de comunicacion serial que trae su formulario por defecto para los ajustes del puerto serie. Les anexo la imagen del mismo.

Mi pregunta es la siguiente ¿como puedo insertar en el titulo del formulario un texto diferente sin modificar el codigo original del mismo?

El componente al ser free viene con su codigo fuente.

Attached Files

•  1826_7a86f360732b659ac264c620e6cabef5bb22dd7b.jpg   13.21KB   2 downloads

[egostar]

Habría que ver que el componente tenga la opción de asignar el caption de la forma.

Algo así

Nombrecomponente.formX.Caption := 'Lo que sea';

Salud OS

[escafandra]

Si lo que explica egostar no está disponible, trata de usar la API SetWindowText o WM_SETTEXT

Saludos.

[cadetill]

Buenas,

Y por qué no quieres tocar el fuente del componente? Esa modificación es bien sencilla

Nos leemos

[enecumene]

Buenas,

Y por qué no quieres tocar el fuente del componente? Esa modificación es bien sencilla

Nos leemos

Me hago la misma pregunta

[FGarcia]

Buenas,

Y por qué no quieres tocar el fuente del componente? Esa modificación es bien sencilla

Nos leemos

Me hago la misma pregunta

La verdad, no se me antoja modificar el codigo, el componente funciona bien ya en d2010, tuve que modificar unos tipos de datos para que funcionara.

El cambiar el titulo del form es solo por "avisar" al usuario final que esta cambiando los parametros de un dispositivo X. El proyecto que estoy tratando tiene de 4 a 8 puertos series y solo por seguridad para evitar errorres.

[cadetill]

Buenas,

Dado que ya le has hecho modificaciones, una más y siendo tan sencilla, no creo que tenga repercusión alguna. Es más, si quieres ir un poco más lejos, podrías ponerle una property en published que fuera el caption del form, de esta manera podrías cambiar el caption de la ventana por código de forma muy sencilla.

No he visto el código del componente, pero debería de ser algo así (escribo de memoria y sin probar):

delphi

private 
  procedure SetCaption(Value: string);
public
  constructor Create(aOwner: TComponent); override; // esto dependerá de dónde derive el componente
published
  property Caption: string read FCaption write SetCaption;
 
.....
 
constructor LaClase.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
 
  FCaption := 'En caption por defecto';
end;
 
procedure LaClase.SetCaption(Value: string);
begin
  if FCaption = Value then Exit;
 
  FCaption := Value;
  if Assigned(ElForm) then ElForm.Caption := FCaption;
end;

También faltaría, en el lugar donde se crease el form, asignarle el caption que tuviera.

Espero te sirva

Nos leemos