ich versuche vergeblich (auch mit hilfe von dem forum hier und g00gle) seit einigen vielen stunden herauszufinden, wie ich ein chatfenster, das ein bestimmtes zur laufzeit erstelltese form ist, wiederfinden soll und wenns noch nicht erstellt wurde, dann nun neu erstellen kann.
ich hab schon ~20 varianten durchprobiert und nix geht.
das ist die letzte version, in der ich die UIN in der caption drin hab und nun die versuche die caption der gefundenen msgforms mit meiner uin zu vergleichen.
Code:
procedure TMainForm.SendMessage1Click(Sender: TObject);
var
i: Integer;
// msgwin: TComponent;
begin
SetCapture(Userlist.Handle);
if Userlist.Selected = nil then Exit;
for i := 0 to application.ComponentCount-1 do begin
if application.Components[i] is Tmsgform then begin
if tmsgform(application.Components[i]).Caption = Userlist.Selected.SubItems[UL_INDEX_NICK] then begin
tmsgform(application.Components[i]).Memo2.SetFocus;
end
else begin
with TMsgForm.Create(Self) do begin
FDest := Userlist.Selected.Caption;
FName := Userlist.Selected.SubItems[UL_INDEX_NICK];
//Caption := Format('%s (%s)', [Userlist.Selected.SubItems[UL_INDEX_NICK], Userlist.Selected.Caption]);
Caption := Userlist.Selected.SubItems[UL_INDEX_NICK];
Show;
end;
end;
end;
end;
{
schau ob ein solches fenster schon erstellt wurde
wenn ja, dann lass dort weiter schreiben
wenn nicht, dann erstelle neues um dort zu schreiben.
}
end;
hat endlich wer irgendne funkende loesung?
ich koennt ja HWND vom fenster fuer jeden user speichern und dann so irgenwie, wenn man mir erklaert wie das geht
mit enumchildwindows() weiss ich nix anzufangen
mit findcomponent hat nix gefunkt
und die findwindow methode will ich vermeiden, wobei ichs mit der jetzt probieren werde, es zumindest versuchen werde zu probieren
thanks fuer loesungsvorschlaege.