funcion , listbox y conversion

[ecfisa]

Empezado por coej

Por otra parte, cuando pongas código asegúrate de poner las etiquetas adecuadas para su formato.


Como se ponen las etiquetas adecuadas para su formato???? No entiendo????

Hola coej.

Román se refiere a las etiquetas vB. Aquí encontrarás información sobre su uso. Consiste sólamente en encerrar el texto entre las etiquetas adecuadas.
Por ejemplo para código Delphi es: [delphi] código [/delphi] dando este efecto:

Código Delphi [-]
function TForm1.SelText (ListBox1 : TListBox) : String;
var
  nItem : Integer;
begin
  nItem := ListBox1.ItemIndex;
  if nItem >= 0 then
    Result := ListBox1.Items [nItem]
  else
    Result := '';
end;

Para que notes la diferencia voy a poner la misma porción de código tal como lo presentaste en tu post:

function TForm1.SelText (ListBox1 : TListBox) : String;
var
nItem : Integer;
begin
nItem := ListBox1.ItemIndex;
if nItem >= 0 then
Result := ListBox1.Items [nItem]
else
Result := '';
end;

Como verás es mucho más difícil de leer que despues de puestas las etiquetas.

Edito: Luego de guardar estas líneas ví que que habías visto lo de las etiquetas.
No tenés por que disculparte, nadie empieza sabiendo en el foro...

Un saludo.

[coej]

Ok, veo que el foro funciona muy bien , rápido y comprensivos, eso anima a seguir en él...

Y sigo planteando preguntas..., empiezo por donde debería haber empezado, estoy siguiendo la biblia de delphi 7 de mario cantu, y al ir siguiendo código he visto en el componente Listbox que si se quiere utilizar con frecuencia el texto de un item del listbox se puede utilizar una funcion como esta...

Código Delphi [-]
function SelText (List :TListBox) : String;
var
  nItem := List.ItemIndex;
  if nItem >= 0 then
       Result:= List.Items[nItem]
  else
     Result := '';
end;

El problema es que como no tengo el cd de codigos de ejemplo , y estoy empezando me encuentro con bastantes problemas(tontos), de código, y no sé como llamar a esta función desde dentro del formulario, y asignar el resultado devuelto por la función como pedía antes a una etiqueta y mostrarlo... pasando como parametro el listbox, creo que en las respuestas que he recibido hay parte de respuesta, y es que cuando el codigo no estre dentro de un evento , tengo que poner el parent del componente?????

[ecfisa]

Podés llamar a la función desde varios eventos, te pongo tres ejemplos:

Al hacer click en el ListBox:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
 (* se asigna a la propiedad Caption del Label el item  seleccionado en ListBox1 *)
  Label.Caption:= SelText(ListBox1); 
end;

Al hacer click en un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 (* se asigna a la propiedad Caption del Form el item seleccionado en ListBox1 *)
  Self.Caption:= SelText(ListBox1);
end;

Al salir del ListBox1:

Código Delphi [-]
procedure TForm1.ListBox1Exit(Sender: TObject);
begin
  (* se muestra el item seleccionado en ListBox1, en un cuadro de dialogo *)
  ShowMessage(SelText(ListBox1));
end;

Un saludo.

[coej]

Muchas gracias de nuevo a todos, así da gusto meterse en foros...

Como simulo la tercera opción , al salir del listbox, he probado a seleccionar uno , y picar fuera del listbox, o cerrar el formulario pero en ningún caso me muestra el mensaje..., doy poca guerra, jeje...

[ecfisa]

En el Object Inspector tenés dos pestañas: Properties y Events, hacé click en la última y te aparecen todos los eventos del componente que esté seleccionado en ese momento. Si por ejemplo, hacés doble click al lado (parte en blanco) de donde dice OnClick, automáticamente te genera el evento y las cabezeras del procedimiento que se dispara al hacer click sobre el componente. Para que se ejecute al salir del componente es OnExit, etc.

Un saludo.

[coej]

Si, eso si lo pillo, me refiero a como simulo el exit del listbox, es decir, en la tercera opción, que mostrará un mensaje cuando me salga del listbox, yo he probado a picar fuera del listbox, y a cerrar el formulario tras seleccionar un item y no me sale el mensaje????, gracias...

[ecfisa]

Ha... Se genera cuando hacés click sobre otro componente o presionas la tecla TAB por ejemplo, es decir cuando abandonas el componente.

Para probar tirá algún boton o un Edit. Una vez que esté seleccionado el ListBox, hacés click sobre alguno de ellos y se genera el evento OnExit.