CRDBGrid1DrawColumnCell, if true then begin, problem wenn das Grid leer ist!

[mkinzler]

Frag halt vorher ab, ob die Datenmange überhaupt Datensätze enthält.

[Alterauge]

Hey,

habe ich mal versucht! Hatte aber anschließend Probleme mit dem Refresh!
Habe den Quelltext leider wieder gelöscht

[s.h.a.r.k]

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i : Integer;
  Wert: string;
begin
   if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
     Exit;

  { hier dein Code }
end;

Und formatier mal deinen Code ein wenig. Damit hilfst du nicht nur dir, sondern auch anderen, die den mal lesen müssen

[add]
Was für Probleme hattest dann mit dem Refresh? Du fängst doch nur den Fall ab, wenn keine Elemente mehr enthalten sind. Was soll denn da passieren?

[Alterauge]

Hey super geht!

Danke!

Habe leider keine Ahnung mehr, was ich mir da zusammen
programmiert habe!

[mkinzler]

Zitat von Alterauge:

Hey super geht!

Danke!

Habe leider keine Ahnung mehr, was ich mir da zusammen
programmiert habe!

Das ist wohl dein Hauptproblem. Dir fehlt einfach das nötige Grundlagenwissen.

[himitsu]

Ich kann mich ja täuchen, aber wäre es nicht besser auf den Wert der grade zu zeichnenden Zelle zuzugreifen, also über den Parameter Column, anstatt auf einen x-beliebigen Wert des aktiven Datensatzes, welcher mit der Zelle nicht unbedingt was zu tun haben muß?

Die Zelle/Zeile kann ja für einen ganz anderen Datensatz stehen.

[Sir Rufo]

Und bitte nicht so auf das Grid zugreifen, sondern so

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i : Integer;
  Wert : string;
  Grid : TCRDBGrid;
begin
  if not ( Sender is TCRDBGrid ) then
    Exit;

  Grid := Sender as TCRDBGrid;

  if not ( Assigned( Grid.DataSource ) and Assigned( Grid.DataSource.DataSet ) and ( Grid.DataSource.DataSet.RecordCount > 0 ) ) then
     Exit;

  { hier dein Code ... aber Zugriff auf das Grid über die Variable Grid }
end;

Der Zugriff über Form1.CRDBGrid1 ist auf jedenfall der Garant für den Knieschuss

[s.h.a.r.k]

Zitat von Sir Rufo:

Der Zugriff über Form1.CRDBGrid1 ist auf jedenfall der Garant für den Knieschuss

No Risk, no Fun!

[Alterauge]

Hey, bin auch noch am lernen!
Aber es wird immer besser!

Der Zugriff über Form1.CRDBGrid1 ist auf jedenfall der Garant für den Knieschuss ??????

Wieso? Es funktioniert doch alles!

[mkinzler]

Zitat:

Hey, bin auch noch am lernen!
Aber es wird immer besser!

Wie oft wurde dir jetzt schon der Parameter Sender genannt und was für eine Bedeutung er hat? wie oft auf Tutorials verwiesen?

Du greifst aber auf eine Komponente mit bestimmten Namen zu die direkt auf einem Formular mit einem bestimmten Namen liegt.
Anderes Formular-> peng Umbenenen Komponente oder Formular: bumm Zwischenschieben eines Contrainers: Knall.