Ich habe mehrere Grids auf meinem Formular und möchte das beim OnDrawCell Ereignis diesen Code ausführen.
Delphi-Quellcode:
procedure TfrmMain.sgWednesdayDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Grid: TStringGrid;
begin
Grid := Sender
as TStringGrid;
if gdSelected
in State
then
begin
Grid.Canvas.Font.Color := clBlack;
Grid.Canvas.Brush.Color :=
RGB(200, 200, 255);
Grid.Canvas.Font.Style := [fsBold];
end;
Grid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Grid.Cells[ACol, ARow]);
end;
Doch ich habe insgesamt sechs Grids und dieser Code soll bei jedem OnDrawCell Ereignis jedes Grids ausgeführt werden.
Nun möchte ich aber nicht bei jedem Ereignis jedes Grids dieses Code hinein kopieren. Deshalb könnte man sich ja eine eigene Klasse schreiben, diese von TStringGrid ableiten und dort irgendwie diesen Algorithmus einfügen. Meine sechs Grid auf dem Formular brauche ich dann nur von meiner Grid Klasse ableiten und alles wird gut
. Hmm ... soviel dazu, aber wie mache ich das?