Clic a un tbutton y que no se quede el foco

[niñotaliban]

Revisando me he dado cuenta que deshabilitaba un panel por codigo y luego intentaba pasar el foco a un elemento dentro de este.

Pero ahora lo que no entiendo es porqué me dice "cannot focus a disabled or invisible window" si ago lo siguiente. (y no hay nada más, un form, un edit, y el procedure de aquí abajo):

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.setfocus;
end;

En cambio si quito el formcreate y pongo porejemplo un botón que me asigna el foco al edit cuando clico, logicamente no me da el error.(pero el edit y el form son los mismos)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.setfocus;
end;

Claro que alomejor es que en el formcreate aún no se ha creado el edit y claro, ¿a quien le va a enviar el foco?

.... Creo que me quedan muchas horas de delphi por delante jejeje

[vtdeleon]

Pues asi como dices. Cuando intentas asignar el foco, todavia el edit no esta creado, ponlo en otro evento(OnShow o OnActive), o mejor aun pon su propieda TabOrder en 0 y evitas poner codigo

Saludos

[dec]

Hola,

Empezado por Troi

(...) mejor aun pon su propieda TabOrder en 0 y evitas poner codigo (...)

También podría utilizar la propiedad "ActiveControl" del formulario. Aquí un extracto de la descripción de dicha propiedad:

Empezado por Ayuda de Delphi

If the form does not have focus, ActiveControl is the control on the form that will receive focus when the form receives focus.

Es posible que dicha propiedad "ActiveControl" esté en el "inspector de objetos" (sea published) con el fin de asignar un control en tiempo de diseño: dicho control tomará el foco según lo tome el formulario que lo contenga, o sea, según se muestre un determinado formulario.

[[Lepe]]

Empezado por vtdeleon

Pues asi como dices. Cuando intentas asignar el foco, todavia el edit no esta creado, ponlo en otro evento(OnShow o OnActive), o mejor aun pon su propieda TabOrder en 0 y evitas poner codigo

A mi ya me "reprendieron" en un hilo por hacer la misma afirmación, así que ahora me toca a mí hacer la .... la ... ¿reprensión?

En realidad cuando llega el evento OnCreate, todos los componentes de la ventana si están creados, de hecho, puedes usar Edit1.Text := 'bla bla'.

El Edit, como su Form, están ocultos, (invisibles), de ahí el mensaje.

saludos

[vtdeleon]

Saludos

Empezado por Lepe

A mi ya me "reprendieron" en un hilo por hacer la misma afirmación, así que ahora me toca a mí hacer la .... la ... ¿reprensión?

Te vengaste , eeeh

Ok, es verdad lo que dices!, Gracias por la correccion

[roman]

Empezado por Lepe

En realidad cuando llega el evento OnCreate, todos los componentes de la ventana si están creados, de hecho, puedes usar Edit1.Text := 'bla bla'.

Empezado por vtdeleon

Ok, es verdad lo que dices!, Gracias por la correccion

Pero tomen en cuenta esto.

// Saludos

[[Lepe]]

Empezado por roman

Pero tomen en cuenta esto.

// Saludos

...Roman me tenía que dar la puntillita....

saludos

[yusnerqui]

Bueno pues aqui se cumple aquello de que "Todos los dias se aprende algo nuevo"

Saludos.