hola,
me estoy volviendo loco y no consigo resultado. a ver si podeis ayudarme
tengo un "panel" que utilizo en plan menu con varios botones "clientes" "facturas"... en una form (form1)
cuando pulso un boton, abre su correspondiente form dentro del form1 (el form1 actua como ventana padre)
a su vez, dimensiono la form para que se muestre correctamente en el form1
la cuestion es que estoy intentando hacer, un procedimiento comun que sirva para el evento onclick de cada boton; asi, el codigo para redimensionar la form que hay que abrir, asignar el "parent"... tendria que ponerlo solo una vez
intento esto:
Código:
procedure abreform (sender :tobject)
var form : string ;
begin
form := (sender as tbutton).caption ;
application.createform ((form as tform),form) ;
(form as tform).show ;
(form as tform).parent := form1 ;
(form as tform).top := form1.top-....
end;
procedure form1.clientes.onclick (sender :tobject)
begin
abreform (sender) ;
end;
procedure form1.facturas.onclick (sender :tobjec)
begin
abreform (sender) ;
end;
e intento evitar tener que "duplicar" para cada boton
Código:
procedure form1.clientes.onclick (sender :tobject)
begin
application.createform(tformclientes,formclientes);
formclientes.show ;
formclientes.parent := form1 ;
formclientes.top:= ...
end;
procedure form1.facturas.onclick (sender :tobject)
begin
application.createform(tformfacturas,formfacturas);
formfacturas.show ;
formfacturas.parent := form1 ;
formfacturas.top:= ...
end;
es posible hacer algo de esto?
gracias por la ayuda