Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TERWI,
20. Nov 2019
Hier mal meine Version mit der Möglichkeit, einzelne oder auch mehrere Elemente zu verschieben, die nicht unbedingt zusammenhängen müssen.
Das funktioniert einwandfrei, auch wenn die Anzahl der Einträge größer als die angezeigten ist.
procedure TForm.OnDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
lb : TListBox;
position, botIndex, i,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TERWI,
19. Nov 2019
Das ist zwar schon fast ein prähistorischer Thread ... hole den aber trotzdem noch mal hoch.
Weil: War auf der Suche nach eben so einer Funktion, aber das funzte alles nicht wirklich toll und war n.E.n. etwas überladen.
Hier mal meine (Kurz-) Version, die beim Live-Verschieben auch die Listbox richtig scrollt.
procedure TForm.OnDragOver(Sender, Source: TObject; X, Y: Integer;
State:...