Ver Mensaje Individual
  #3  
Antiguo 28-10-2015
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
Lazarus y subclases... me lo pones difícil.

Hasta donde yo sé, prueba una clase interpuesta:

Código Delphi [-]

uses Combobox; // o la que sea jejej

class TxComboBox = class(TCombobox)
public
   procedure MioMio(UnValor : string);
end;

TForm1 = class(TForm) // la definición del Form que pone delphi
   Combobox1: TCombobox ; // sí, lo mismo que pone delphi.
   ...
end; 


implementation

procedure TxComboBox.MioMio( UnValor : string);
begin 
  ShowMessage( UnValor ); 
end;


// ya en un procedimiento de tu Form
Procedure TForm1.HacerLoquesea; 
begin 
  //moldear el combobox como si fuera un TxComboBox.
  TxComboBox(Combobox1).MioMio('hola');
end;

Si no te vale, pues lo dicho por AgustinOrtu, pon tu código e indica el error que dá.

Saludos!
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita