Elo! Mam taki problem, probuje zrobic dynamiczne okienka jak w gg. Robiłem tak ja jest w gotowcach http://4programmers.net/Delphi/Gotowce/Dynamiczne_okienka_jak_te_z_GG
ten sposob z tablicami niby dzialal aczkolwiek okienek nie bylo widac w "belce" i czasem byly problemy.
Uzylem takze tego sposobu co byl w komentarzach, ale jak w poprzednim w belce nie widac okienek.
I teraz tak:
- Jak zrobić by kazde okienko bylo w belce
- Jak korzystajac z drugiego sposobu czyli:
procedure TfrmMain.CreateChatWindow(User: Integer; Caption: String);
var
frmMsg1: tform2; // TfrmMsg jest okienkiem rozmowy
i: Integer;
begin
for i := 0 to Screen.FormCount - 1 do begin // pętla przechodzi przez wszystkie okienka w aplikacji
if Screen.Forms[i].Tag = User then begin // sprawdzamy czy okienko z określonym numerem już istnieje
Screen.Forms[i].Caption := Caption; // nadajemy tytuł okna
Screen.Forms[i].SetFocus; // dajemy focus na to okienko
Exit; // nie wykonuj reszty funkcji
end;
end;
frmMsg1 := TfrmMsg.Create(Application); // tworzymy nowe okno
frmMsg1.Tag := User; // właściwośc Tag przechowywuje numer użytkownika z którym rozmawiamy
frmMsg1.Caption := Caption;
frmMsg1.Show; // pokazujemy nowo utworzoną formę
end;
Dodac linie do memo ktore sie znajduje w okienku ktore ma okreslony tag?