Cita:
Empezado por Clantt
Al parecer mi lógica del chat esta errónea no crees?
|
No, no lo creo. Tal como la planteaste puede funcionar pero te hacen falta un poco de conocimientos técnicos para saber por dónde entrarle. Esto no tiene nada de malo, pero hay que solventarlo tarde o temprano.
Vamos a ver; obviamente no puedes declarar tantas variables como ventanas posibles ya que no puedes saber cuántas de ellas habrá en un momento dado.
Entonces lo que necesitas es una lista de objetos a la que puedas agregar o quitar elementos dinámicamente.
Dices que en tu ventana principal tienes una lista de usuarios. Si esta lista es un ListBox entonces ya tienes la mitad del camino recorrido.
La propiedad Items del ListBox es un objeto de tipo TStrings y como tal, tiene una propiedad Objects:
Código Delphi
[-]
lbUsuarios.Items.Objects[Index]: TObject
que viene a ser un arreglo o lista de objetos, uno por cada elemento de Items, o sea de lbUsuarios (el ListBox de usuarios). Como un formulario es un objeto, bien puedes utilizar esto para guardar referencias a las ventanas de privados. Si no tienes privado con un usuario, el objeto correspondiente será
nil.
Para fijar ideas, vamos a describir lo que pasaría cuando haces doble click sobre un usuario de la lista:
- lbUsuarios.ItemIndex te da el índice en la lista que ocupa el usuario
- Entonces lbUsuarios.Items.Objects[lbUsuarios.ItemIndex] es el objeto asociado a ese elemento de la lista.
- Al principio será nil pero es "la variable" en donde guardas el formulario que vas a crear:
Código Delphi
[-]
var
Ventana: TVentanaPrivado;
begin
Ventana := TVentanaPrivado.Create(Self);
Ventana.Memo1.Text := 'Conversación privada con fulanito';
Ventana.Show;
lbUsuarios.Items.Objects[lbUsuarios.ItemIndex] := Ventana
end;
- Aquí, Ventana es una variable temporal, declarada en el evento OnDblClick o el método que uses para abrir el privado.
Así, en un momento dado, tendrías la siguiente situación, esquemáticamente hablando:
Código:
[pablo] --------> +--------------------+
[susana] -> nil | |
[teresa] -> nil | |
[lepe] -> nil +--------------------+
[juanito] -> nil
[mamá] ---------> +--------------------+
| |
| |
+--------------------+
En el chat se encuentran pablo, susana, teresa, lepe, juanito y tu mamá y tienes conversaciones privadas con pablo y mamá.
Los otros elementos son
nil pues no has iniciado conversaciones con ellos.
Si tienes que interactuar con la ventana de pablo, por ejemplo, primero que nada obtienes el índice que ocupa en la lista. Éste puede ser ItemIndex como antes, si es el que esá seleccionado o bien el obtenido de lbUsuarios.Items.IndexOf('pablo')
Una vez hecho esto, obtienes la referencia al privado:
Código Delphi
[-]
var
Ventana: TVentanaPrivado;
begin
Ventana := TVentana(lbUsuarios.Items.Objects[Indice]);
end;
Y ya pudes interactuar usando la variable local Ventana.
Hay muchos otros detalles que tendrás que tomar en cuenta. Por ejemplo, ¿qué pasa cuando cierres una ventana de privado? Lo más sensato es que liberes su memoria poniendo Action := caFree en su evento OnClose. Pero de alguna manera tienes que avisarle a la ventana principal para que se entere de que ya no hay privado y vuelva a poner en
nil la referencia correspondiente.
Pero por el momento ya tienes con qué comenzar.
Paralelamente te recomiendo que leas algún libro básico de Delphi. En la página de
Ian Marteens podrás bajar gratuitamente
La Cara Oculta de Delphi 4, que aunque no coincida conla versión que uses de Delphi, te servirá perfectamente para las nociones generales.
// Saludos