Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by rapante,
9. Okt 2010
Du hast den "falschen" Teil genommen.
Damit setzt du nur die horizontale Scrollbar.
Du brauchst den Part mit row und rowdelta...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by rapante,
9. Okt 2010
Du musst dir die aktuelle Zeile merken und hinterher wieder setzen.
Ich habe sowas mal gebaut gehabt um bei einem Refresh über einen Timer die Ansicht beizubehalten:
procedure TMyForm.RefreshTimerTimer(Sender: TObject);
var
rowDelta: integer;
row: integer;
recNo: integer;
TempScrollInfo: SCROLLINFO;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by rapante,
8. Okt 2010
Hallo -187-
Du könntest dir ein eigene DBGrid-Komponente von TCustomDBGrid ableiten und die procedure MouseDown überschreiben.
Die müsste dann ungefähr so aussehen (ungetestet!):
procedure TMyDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbRight) then
Button := mbLeft;