Hai Heike,
Du könntest im
.AfterOpen Ereigniss deines TDataSets die Größe anpassen.
Zum Beispiel:
Delphi-Quellcode:
procedure TForm1.QueryAfterOpen(DataSet: TDataSet);
var
VScrollWidth : Integer; // Breite des Scrollbalkens
begin
VScrollWidth := GetSystemMetrics(SM_CXVSCROLL);
Self.Width := DBGrid1.Left + DBGrid1.Width + VscrollWidth;
end;
[Edit]ÄNDERUNG.
Ich weiss auch nicht warum ich zuerst mit .ClientWidth gearbeitet habe [edit]
Noch ein Edit:
Ich bin wohl noch nicht wach. Es wird noch immer der Horizontalescrollbaken angezeigt.
Ich überlege mir noch etwas.
Stephan B.
"Lasst den Gänsen ihre Füßchen"