Советы по Delphi. Версия 1.4.3 от 1.1.2001

  procedure Button1Click(Sender: TObject);

  procedure FormClick(Sender: TObject);

 private

  { Private declarations }

 public

  { Public declarations }

 end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

 THack(dbgrid1).controlstyle :=THack(dbgrid1).controlstyle + [csClickEvents];

 THack(dbgrid1).OnClick := Form1.OnClick;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

 messagebeep(0);

 application.processmessages;

end;

end. 

Числа с плавающей точкой в DBGrid

Delphi 1 

Для показа в табличной сетке дробных чисел, выберите таблицу, с которой связана ваша сетка (через datasource, источник данных).

Активизируйте редактор полей (правой кнопкой мыши) и выберите поле, в котором вы хотите видеть дробное число.

Измените значение свойств 'DisplayFormat' и 'EditFormat', чтобы дробь имела формат такой, какой вы хотите (к примеру, шаблон '0.00', позволяющий сетке показывать поле с двумя цифрами после запятой).

Дважды щелкните на компоненте table, расположенном на форме. Нажмите на кнопку 'Add'. Будут показаны все поля вашей таблицы. Выберите их в списке «Available field» (доступные поля) и щелкните на кнопке OK. Теперь при щелчке на имени поля, в Инспекторе Объектов будут показаны все свойства, относящиеся к данному полю, здесь можно изменить текст заголовка, выводимый формат «DisplayFormat» (это как раз то, что вам нужно, измените его на ####0.0) и пр. 

Получение данных DBGrid прежде, чем они будут отправлены: как мне узнать, что пользователь вводит в DBGrid?

Delphi 3 

Вы можете «видеть» что набирается в TDBGrid, «смотря» на контрол сетки TInPlaceEdit. Вы должны убедиться только в том, что к моменту использования TInPlaceEdit, контрол уже создан. Следующая функция покажет данные, редактируемые в колонках сетки:

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

var B: byte;

begin

 for B := 0 to DBGrid1.ControlCount - 1 do

  if DBGrid1.Controls[B] is TInPlaceEdit then begin

   with DBGrid1.Controls[B] as TInPlaceEdit do begin

    Label1.Caption := 'Текст = ' + Text;

   end;

  end;

end;

Хочу шапку в TDBGrid. Как сделать?

Nomadic советует:

Уже реализовано в виде вот этого компонента — © Andre

unit bdbgrid;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Math;

type

 TOnDrawTitleEvent = procedure(ACol : integer; ARect : TRect; var TitleText : string) of object;

 TBitDBGrid = class(TDBGrid)

 private

  FBitmapBrowse : TBitmap;

  FBitmapEdit : TBitmap;

  FBitmapInsert : TBitmap;

  FBitmapFill : TBitmap;

  FRealTitleFont : TFont;

  FOnDrawTitle : TOnDrawTitleEvent;

  FResizeFlag : boolean;

  { Private declarations }

  procedure SetRealTitleFont(Value : TFont);

  procedure UpdateTitlesHeight;

 protected

  procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

  procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

  procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

  { Protected declarations }

 public

  constructor Create(AOwner : TComponent);override;

  destructor Destroy; override;

  { Public declarations }

 published

  property OnDrawTitle : TOnDrawTitleEvent read FOnDrawTitle write FOnDrawTitle;