Dělám chat a když chci s někým psát vyberu někoho z kontakt listu a pro něj dynamicky vytvorím nový formulár s komponentami. Jenže problém je v tom že když chatuju s více lidmi vytvoří se více formulářu ale všechno chodí jen do posledně vytvořeného, tak hledám vhodný způsob jak označit jednotlivé formuláře abych vědel s kterým mám pracovat a do kterého mam odesílat data.
Napadlo mě že při vytvoření formuláře mu dam Tag a podle toho potom vybíram jednotlivá okna jenže nevím jak pote vybírat jednotlivé formy do kterých se bude psát.
Ještě mě napadlo ze misto deklarace (napr Okno:TForm) napsat (Okno: array of [1..50] of TForm) a pote bych vedel jak vybirat ruzne formy jenze to me omezuje na urcity pocet moznych otevrenych oken a jeste nevim jestli je to vhodne vzhledem k mistu v pameti kdyz bych tento zpusob musel aplikovat i na mema a tlacitka v tom formu.
Prozatím jeto napsany v této podobě(bez zmen velikosti atd):
var formChat:TForm;memoRec,memoWri:TMemo;btnSend:TButton;
procedure Tform1.novyForm;
begin
formChat:=Tform.CreateNew(Form1);
formChat.show;
memoRec:=TMemo.create(self);
memoRec.Parent:=formChat;
memoWri:=TMemo.create(self);
memoWri.Parent:=formChat;
btnSend:=TButton.Create(Self);
btnSend.parent:=formChat;
end;
potom uz jen pisu memoRec.lines.add(prijatytext);