Einzelnen Beitrag anzeigen

barnti

Registriert seit: 15. Aug 2003
Ort: Mal hier mal da...
689 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Grid im Grid positionieren

  Alt 24. Nov 2004, 08:30
Guten Morgen!

Mir war ein kleiner Fehler unterlaufen. Ich habe die Lösung nun gefunden:
Delphi-Quellcode:
procedure TmyDBGrid.OnCellDraw(Sender: TObject; const Rect: TRect; DataCol:
        Integer;Column: TColumn; State: TGridDrawState);
begin
   // wird das aktuelle Feld neu gezeichnet...
   if (gdFocused in State) and
      // und ist dies das akt. selektierte
      (Column.Field= SelectedField) and
     // und ist das Detailgrid sichtbar,
     Detail.Visible then
     // dann zeichne es an die neue Position
     Detail.SetBounds(11,Rect.Top+16,self.Width-31,(self.Height-52)-Rect.Top);
end;
Das Grid für die Detaildaten(hieretail) wird an der Stelle des aktuellen Masterdatensatzes neu gezeichnet.
Einziges Problem: Wenn man bei angezeigten Detaildaten horizontal scrollt, wird das Grid nicht richtig dargestellt. Sollte man aber in den Griff bekommen.
Gruß,

Barnti
  Mit Zitat antworten Zitat