Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
3. Jan 2023
Hallo Harry,
vielen Dank für Deine schnelle Anwort.
Klingt einleuchtend den Treeviewitems die zwei Events zuzuordnen. Ja Du hast Recht, ich möchte die Items beeinflussen.
Die Events sind ganz normal die von TTreeView? Also die ich auch angelegt habe?
Klasse, Drag und Drop edelt doch jede Anwendung.
Da ich die Items auch dynamisch herstelle, kann ich dann gleich die Events anhängen.
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
2. Jan 2023
Hallo Harry,
entschuldige, es hat etwas gedauert bis ich die Demodatei fertig machte. Wenn Du noch magst, schau es Dir bitte an. Ich habe nach wie vor keine Reaktion auf seiten des TTreeview. So wie oben beschrieben.
Irgendwas mache ich da falsch.
Danke Peter
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
14. Dez 2022
Danke Peter,
das heißt vom Ergebnis ist die Vorgehensweise identisch.
Jetzt verstehe ich auch was Sebastian meinte, dass ich bei einem Typcast mit as eine verständlichere Fehlermeldung bekomme.
Gruß Peter
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
13. Dez 2022
Danke Harry für die schnelle Antwort und Dein Angebot sich ein Demo anzuschauen.
Leider klappt es immer noch nicht. Das Demo mache ich fertig und stelle es ein. Vermutlich nur eine Bagatelle, wie ich mich kenne.
Vorab eine Frage:
item:= (Sender as TTreeViewItem); //.ItemByPoint(Point.X, Point.y);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
13. Dez 2022
Danke für eure Antworten.
Ich habe es jetzt umgebaut:
procedure TFormViewZuordnen.ListViewZuordnenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
Svc: IFMXDragDropService;
DragData: TDragObject;
Item: TListViewItem;
List: TListView;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
12. Dez 2022
Hallo Harry,
danke, dass Du Dich meinem Problem annimmst.
Die besagte Zeile habe ich auskommentiert und bekomme eine Fehlermeldung. Eine Kopie habe ich beigefügt.
Wenn ich die Zeile drin lasse, kommt zwar keine Fehlermeldung, aber immer wieder der Logeintrag.Jetzt habe ich den Verdacht, dass es an der Methode ListViewZuordnenMouseMove liegt. Denn die Maus bewegt sich ja immer und...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter-Pascal,
10. Dez 2022
Hallo,
ich plage mich mit dem Versuch aus einem TListView Informationen zu einem TTreeViewItem in einem TTreeView zu ziehen und leider klappt es nicht.
Das Ziehen (Drag) scheint soweit zu funktionieren:
procedure TFormViewZuordnen.ListViewZuordnenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
Svc: IFMXDragDropService;
DragData: TDragObject;