Re: Laufzeit Label wird nicht angezeigt
Irgendwie klappts wieder, mit vohin der Pc abgestürzt und hab ihn neugestartet.
Kein Plan, ob das jetzt irgend nen Fehler von Delphi war. Aber es klappt nun die Labels sind jetzt sichtbar wenn ich sie erzeuge. oO |
Re: Laufzeit Label wird nicht angezeigt
Liste der Anhänge anzeigen (Anzahl: 1)
So habe das Projekt mal angehangen hoffe es findet sich jemand zurecht, indem Code wir war.
Ist inzwischen schon was mehr geworden. Um das Prohjekt zu öffnen braucht man die TBX Toolbar geschichte. Die Labels werden bei OnMouse Down der MainFrm erzeugt. Der erzeugen Code ist in der funktion.pas --- Edit --- Anhang vergessen |
Re: Laufzeit Label wird nicht angezeigt
Ich würde die dynamsich erzeugten Labels in einem Array verwalten. das Auslagern der dyn. Erzeugung in eigene Funktion ist sehr unubersichtlich, auch die mehrfache Anlage verschiedener Variablen mit dem selben Namen und die Verwendung von gloablen Zählvariablen wirkt etwas verwirrend.
Delphi-Quellcode:
procedure TMainFrm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); //var MyLabel: TMyLabel; //Überflüssig begin if ListBox1.ItemIndex >= 1 then begin CreateModel(MainFrm,MouseX,MouseY, ListBox1.Items.Strings[ListBox1.ItemIndex]); MainFrm.Update(); end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz