Hi,
ja wie der Fehler schon sagt gibt es einen Fehler beim setzen eines Parent beim Labels.
Delphi-Quellcode:
var
Label_Create: TLabel;
//Nach einigen Zeilen Code
...
procedure addText(Text: String);
begin
Label_Create := TLabel.Create(Form1.Panel1);
Label_Create.Parent := Form1.Panel1;
Label_Create.Caption := Text;
Label_Create.Top := 0;
Label_Create.Left := 10;
Label_Create.Autosize := true;
Label_Create.Tag := 0;
Label_Create.OnMouseEnter := Form1.onMouseOver;
Label_Create.OnMouseLeave := Form1.onMouseOut;
Form1.Text_Objects.Add(Label_Create);
newMessage;
end;
Ich weiß nicht wo mein Fehler liegt, es stürtz auch erst beim 2. oder 3. Aufruf der Funktion ab.
Kann mir jemand sagen was ich falsch mache.
Vielen Dank im voraus.