TODOPIC
Lenguajes de programación para PC => Delphi => Mensaje iniciado por: Toph en 10 de Mayo de 2006, 20:44:52
-
no se mucho de delphi, pero,¿podria un boton activarse cuando se han llenado cierto numero de edits? :?: y si es asi como se haria esto? :?
gracias de antemano :g)
-
o entiendo lo que significa edit?. A la pregunta en concreto la respuesta es si, solo tienes que crear el evento OnClick (por ejemplo pulsando dos veces en la fase de diseño, introduces las operaciones que quieras realizar y despues realizas un if para ver si has llegado al número de edit's??????????? :P, si es así llamas al evento OnClick y es como si le hubieras pulsado. Otra posibilidad es pasarle el foco al botón y mandarle una pulsación del ratón.
Un saludo.
-
Que tal, yo no se mucho de Delphi pero los edits, vendrian siendo cajas de textos. verdad?.
Saludos. :)
-
a cada uno de los TEdit's que sea necesario llenar antes de habilitar el boton le asignas un nombre seguido de un correlativo por ejemplo edit0,edit1,edit2,edit3 ..., el boton lo dejas deshabilitado desde el inicio, al primer TEdit le asignas el evento OnChange y (asumiendo que el boton se llama button1, si no lo cambias) lo dejas asi ...
procedure TForm1.edit0Change(Sender: TObject);
var i:integer;
begin
button1.enabled:=true;
for i:=0 to 3 do
button1.enabled:=button1.enabled and
(trim(TEdit( findComponent('edit'+intToStr(i)) ).text)<>'')
end;
luego a cada uno de los otros TEdit le asignas ESTE MISMO evento (no crees otro para cada uno).
en el ejemplo anterior asumimos que son 4 TEdit's (partimos del 0), que sus nombres comienzan con "edit" mas un correlativo, y que cuando los 4 tengan texto el boton llamado "button1" sera habilitado...
espero te sirva ....
-
o entiendo lo que significa edit?.
soy principiante en delphi :?, y tengo la mala costumbre de quitar esa T a los elementos y obviamente me referia a los TEdits
Que tal, yo no se mucho de Delphi pero los edits, vendrian siendo cajas de textos. verdad?.
si son como cajas de texto :-/
:) gracias Kozz, voy a probar con tu solucion :-/