5
TDBGrid
の見出しに画像を挿入するにはどうすればよいですか?delphi:ImageをDBGridタイトルに挿入するにはどうすればよいですか?
私は試しましたが、画像を表示し続け、タイトルの上にマウスを置くと消えてしまいました。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = order then
Begin
Column.Title.Font.Color := clBlue;
//if gdFixed in State then // didn't work.. I don't know why!!!
if Rect.Top < 30 then
ImageList1.Draw(DBGrid1.Canvas, Rect.Right-18, Rect.Top-18, 0);
end
else
Column.Title.Font.Color := clWindowText;
end;
完璧です。 – ABDNET
@bummiなぜ 'FImagelist.Draw'がもっとちらつきを起こすのでしょうか? – EProgrammerNotFound