Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
30. Okt 2009
Das CurCol hatte schon seine Berechtigung. Nach Ablauf der Schleife ist i nicht definiert, so dass ich mir Treffer in CurCol merke. Außerdem steht dort der Initialwert -1 drin, wenn es keinen Treffer gab.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
29. Okt 2009
Probier es mal so:procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var
I : Integer;
aLeft : Integer;
CurCol: integer;
begin
aLeft:=0;
CurCol := -1;
For I:=0 To Pred(ListView1.Columns.Count) Do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
29. Okt 2009
Ich habe die Logik jetzt nicht bis ins Letzte nachvollzogen, aber müsstest Du nicht X prüfen statt Y?