0

Necesito hacer que el cursor cambie mientras esta ejecutando una tarea en especifico, devolverlo a su normalidad cuando termine.

1 respuesta 1

0

Hay una funcion en esta pagina. Aqui la funcion:

procedure SetControlCursor(control: TWinControl; cursor: TCursor);
var i:Integer;
    wc: TWinControl;
begin
  if (not (control = nil)) then begin
    control.Cursor := cursor;
    try
      for i:=0 to control.ControlCount-1 do begin
        wc := TWinControl(control.Controls[i]);
        if (NOT(wc = nil)) then
          SetControlCursor(wc, cursor)
        else
          control.Controls[i].Cursor := cursor;
      end; {for}
    finally

    end;{try}
  end;{if}
end;{procedure SetControlCursor}

Llamas de esta manera:

  SetControlCursor(WizardForm, crHourGlass);

Para volver al normal:

  SetControlCursor(WizardForm, crDefault);

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.