Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
7. Aug 2009
stimmt (DOH)
es geht jetzt, dankeschön.
Magst du mir jetzt (weil wir gerade so schön dabei sind) mir bei nochwas helfen?
Allerdings dann per PM, weil das nicht mehr um dynamische Tabs geht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
7. Aug 2009
hö? wo?
newRichEdit := TRichedit.Create(newTabSheet);
TWinControl(newRichEdit).Name := 'edtChat_' + AktuelleUIN;
TWinControl(newRichEdit).Parent := newTabSheet;
newRichEdit.Align := alClient;
EDIT:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
7. Aug 2009
leider nein.
es öffnet sich zwar das Fenster, allerdings kommt keine Message an.
compo := frmChat.PageControlChat.FindComponent('edtChat_' + AktuelleUIN);
if Assigned(compo) then
compo := compo.FindComponent('edtChat_' + AktuelleUIN);
if Assigned(compo) then
(compo as TRichEdit).Lines.Add(AktuelleUIN + ': ' + Msg);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
7. Aug 2009
Hab ich doch, funktioniert nicht so wie ich will.
TRichEdit(findcomponent('edtChat_' + AktuelleUIN)).Lines.Add(AktuelleUIN + ': ' + Msg);
Das Problem wird wohl daran liegen, dass ich den Code oben auf frmMain anwende, die gesuchte Komponente sich aber auf frmChat befindet.
TfrmMain.TRichEdit(findcomponent('frmMain.edtChat_' + AktuelleUIN)).Lines.Add(AktuelleUIN + ': ' + Msg);
oder...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
7. Aug 2009
Ich hab jetzt noch ein Problem:
procedure TfrmMain.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
newTabSheet: TTabSheet;
newRichEdit: TRichEdit;
newPanel: TPanel;
newlabel: TLabel;
aItem: TListItem;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
6. Aug 2009
über FindComponent hab ich schon die funktion "GetActiveRichEdit" gemacht, wär ne idee ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
6. Aug 2009
TabControl?
mmh hab jetzt aber alles mit TPageControl gemacht.
Bisher geht eigentlich alles, bis auf die gute/saubere Art und weise, dem Tab nen Namen zu geben bzw. zu speichern,
Damit ich beim Empfangen / Senden der Nachricht weiss, Tab_X = Kontakt_Y und der hat ICQ Nummer UIN_Z
Und dann wäre da nochwas zu klären...
1. Wenn ich schliesse, ist der RichEdit Chatlog WEG, das doof ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Novo,
6. Aug 2009
Und zwar geht es nach dem hier:
http://www.delphipraxis.net/internal_redirect.php?p=1066031
mit meinen Problemen weiter.
Ich will ein eigenes, kleines ICQ Client schreiben und will nicht jedesmal (MSG empfangen / Nachricht schreiben)
ein NEUES Fenster aufmachen, sondern nur EIN Fenster mit Dynamischen Tabs haben.
Das habe ich teilweie hinbekommen, allerdings funktioniert das nicht...