| Autor |
Beitrag |
superchatti
  
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Mi 11.06.03 17:49
Also!
Ich bnutze folgenden Code bei ListView.DblClick(ich arbeite an einem E-Mail Programm!):
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TfrmMain.MailsDblClick(Sender: TObject);
var
i:integer;
begin
POP.Retrieve(Mails.Selected.Index + 1, Mail);
for i := 0 to Pred(Mail.MessageParts.Count) do
begin
Memo1.Lines.AddStrings(TIdText(Mail.MessageParts.Items[i]).Body);
end;
ToolButton3.Enabled := true;
ToolButton4.Enabled := true;
end; |
Mails ist das ListView und Mail die IdMessage!
Und POP erklärt sich von alleine!
Also!
Wenn ich jetzt doppelt da drauf klicke dann zeigt der die Nachricht nicht an!
Also in der Memo steht nichts!
Kann mir jemand helfen?? _________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Fr 13.06.03 16:35
So gehts:
Delphi-Quelltext
1:
| memo1.Lines.AddStrings(idmessage1.Body); | _________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti 
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:34
Probier ich gleich mal aus!
Danke!
Weißt du zufällig wie ich das dann alles speichern kann??
_________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:36
Die komplette Nachricht oder nur der Text?
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:40
Die Message speicherst du mit:
Delphi-Quelltext
1:
| idmessage1.SaveToFile('C:\test.dat',false); |
Das Memofeld speicherst du mit:
Delphi-Quelltext
1:
| memo1.Lines.SaveToFile('C:\test.dat'); |
Such dir eines aus. _________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:43
Ich wollte das so:
Zu jedem Item den ensprechenden Memotext
_________________ mfG Superchatti
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:44
Irgendwie passiert nichts mit der Memo!
_________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:45
Da musst du selbst dranbasteln, da kann ich dir leider nicht helfen, aber vielleicht jemand anders, ich hab dir alles gesagt, was ich weis.
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:46
Wie es passiert nicht? Schreibt er nichts rein, oder speichert er nicht?
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:47
Er schreibt nichts rein!
_________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:51
Dann wird vermutlich nichts abgerufen.
Denn versuch mal einfach das:
Delphi-Quelltext
1:
2:
| idmessage1.Body.Text:='test';
memo1.lines.add(idmessage1.Body.Text); | _________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:52
Dan fügt er test in die memo ein!
_________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:53
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:55
Siehst du, dann fügt er es ein, das ist im Prinzip nichts anders, als das was er dann ausführt, er nimmt den Empfangenen "Bauch" der Message und schreibt ihn in das Memo.
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:56
POP ist schon connected!
Also!
Das DblClick ist nur Enabled wenn POP.Connect ist!!
Es funktioniert immer noch nicht!!
_________________ mfG Superchatti
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:57
An deiner Stelle würd ich mir mal die Indydemos ganz genau anschauen, denn da ist alles drin, was du brauchst und brauchen könntest.
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
Hansi@OMG
Beiträge: 304
Vista
Delphi 2006 Prof., Lazarus
|
Verfasst: Sa 14.06.03 17:58
Schick mir mal dein Programm, ich überarbeite es dir kurz
_________________ Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:59
Ja!
Da steht beim DblClick:
Delphi-Quelltext
1:
| if Mail.MessageParts.Items[i] is TIdText then |
Aber er soll es auch machen wenn nicht nur TIdText! _________________ mfG Superchatti
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 17:59
Ok!
Mach ich!
Aber bitte nicht für eigene Zwecke benutzen!!
_________________ mfG Superchatti
|
|
superchatti
Beiträge: 296
Win XP, Red Hat Linux 7.3
Delphi 6 PE
|
Verfasst: Sa 14.06.03 18:00
So!
Ich schicks jetzt los!
Ist in einem RAR-Archiv
_________________ mfG Superchatti
|
|
