Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Kein Übergeordnetes Fenster

67 views
Skip to first unread message

Markus Gronotte

unread,
Jun 1, 2012, 2:23:34 PM6/1/12
to
Nabend zusammen,

Hat jemand einen Tipp, wie man den folgenden Code zum laufen kriegt?
Ich blick mal nicht durch wie man da ein virtuellen Fenster hinmogeln könnte.

In den Zeilen
Source.Visible:=false;
Source.Width:=32000;
Source.SelectAll;

gibt es zur Laufzeit überall den Fehler
EInvalidOperation Element '' hat kein übergeordnetes Fenster


Gruß,
Markus


hier auszugsweise der Code :



eMail.Nachricht := TRichEdit.Create(Form1);
eMail.Nachricht.Text := 'Nachrichtentext';

.
.
.

// HTML Part
with TIdText.Create(IdMsgSend.MessageParts, nil) do
begin
ContentType := 'text/html';
Body.Text := RtfToHtml('MetaHead', email.Nachricht);
end;

.
.
.

function RtfToHtml(contenthead:string; Source:TRichedit):string;
var loop,loop2:integer; // Counter
s,s2:string; // Strings, zur Bearbeitung
fett,kursiv,us,bullet:boolean; // welche Attribute hatte das letzte Zeichen?
Aktcolor:tColor; // aktuelle Farbe
aktSize:integer; // aktuelle Schriftgröße
AktLine:Integer; // welche Zeile bearbeiten wir
Align1:TAlignment; // wie ist die Ausrichtung
ReihenFolge:TList; // in welche Reihenfolge werden die Tags bearbeitet
// 1= fett
// 2 = kursiv
// 3 = unterstrichen
// 4 = Color
// 5 = Size
// 6 = li

function CalculateSize(pt:integer):integer;
begin
case pt of
0..7: result:=1;
8..10: result:=2;
11..13: result:=3;
14..16: result:=4;
17..20: result:=5;
21..24: result:=6;
else result:=7;
end;
end; // CalculateSize;

begin
result:='';
//Source.Visible:=false;
//Source.Width:=32000;


ReihenFolge:=TList.Create;

// der Header
s:=
'<html><head><meta name="generator" content="'+contenthead+'"></head>'+
'<body text="#000000" bgcolor="#FFFFFF" link="#FF0000"alink="#FF0000" vlink="#FF0000">';

fett:=false;
kursiv:=false;
us:=false;
bullet:=false;

// wieviele Zeichen insgesamt
Source.SelectAll;

.
.
.

Ralf Kaiser

unread,
Jun 1, 2012, 4:32:03 PM6/1/12
to
Am 01.06.2012 20:23, schrieb Markus Gronotte:

>
> Hat jemand einen Tipp, wie man den folgenden Code zum laufen kriegt?
> Ich blick mal nicht durch wie man da ein virtuellen Fenster hinmogeln könnte.
>
[...]
>
> gibt es zur Laufzeit überall den Fehler
> EInvalidOperation Element '' hat kein übergeordnetes Fenster
>
[...]
>
> eMail.Nachricht := TRichEdit.Create(Form1);
> eMail.Nachricht.Text := 'Nachrichtentext';
>

Das Element (das TRichEdit) hat kein übergeordnetes Fenster (auf Neudeutsch:
Parent), also weise dem Richedit dieses Fenster zu:

eMailNachricht.Parent := dasFormular;

Ciao,
Ralf

Markus Gronotte

unread,
Jun 3, 2012, 5:11:02 AM6/3/12
to

"Ralf Kaiser"

> Das Element (das TRichEdit) hat kein übergeordnetes Fenster (auf Neudeutsch: Parent), also weise dem Richedit dieses Fenster zu:

> eMailNachricht.Parent := dasFormular;

Das führt jetzt zwar zu seltsamen Blinkattackten des Mainforms, aber es funktioniert.
Danke für den Hinweis.

Hans-Peter Diettrich

unread,
Jun 3, 2012, 6:44:44 AM6/3/12
to
Markus Gronotte schrieb:
Setze auch
eMailNachricht.Visible := False;

DoDi
0 new messages