Обработка событий в Delphi

[maladoy]

я же не знаю какие координаты у моего заголовка на DBGride

а в чем проблема их узнать?

нужно сделать так, чтобы при вызове события OnTitleBtnClick событие OnDblClick не вызывалось!
вопрос в том как это сделать?

заведи глоб переменную логическую и в OnTitleBtnClick- присваивай ей true а в OnDblClick-проверяй если она true то на выход!!!правда где ты ей false ,присваивать уж сам придумай

[SlavaSH]

Сообщение от maladoy

а в чем проблема их узнать?
заведи глоб переменную логическую и в OnTitleBtnClick- присваивай ей true а в OnDblClick-проверяй если она true то на выход!!!

ну а как их узнать???

с глобальной переменной идея хорошая, я думал об этом... но тут возникает другая проблема:
при возникновении события OnTitleBtnClick эта переменная станет true и событие OnDblClick не возникнет, это хорошо.

Но в следующий раз когда я клацну двойным щелчком мыши уже не на заголовке событие OnDblClick опять же не возникнет, потому что переменная то не стала равной false
Это равносильно тому, чтобы при возникновении события OnTitleBtnClick выполнить такую команду
DBGrid.OnDblClick:=nil;

И событие OnDblClick уже никогда не выполнится.... а это не есть хорошо

[maladoy]

проверяй если она true то на выход!!!

но перед выходом присвой ей false

ну а как их узнать???

у формы и у грида есть свойства left и top то есть при знании разрешения экрана можно узнать координаты левого верхнего угла а так как есть еще и header.height и width у грида то и правый нижний угол узнать труда не составит
и при попадании мыши в этот прямоугольник и будет запрещено событие OnDblClick

[Stilet]

Не верю я в то, что это так сложно...

Ну не очень и сложно то

Кстати мож я чего-то недопонял но вот такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Grids,
  DBGrids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ShowMessage('DBL');
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ShowMessage('TITLE');
end;

end.

Работает как полагается.
DBL по клику на заголовок не вылезает.

[maladoy]

DBL по клику на заголовок не вылезает.

а по двойному клику?

[SlavaSH]

Сообщение от Stilet

Ну не очень и сложно то

Кстати мож я чего-то недопонял но вот такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Grids,
  DBGrids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ShowMessage('DBL');
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ShowMessage('TITLE');
end;

end.

Работает как полагается.
DBL по клику на заголовок не вылезает.

если один раз кликнуть на заголовок, то конечно не сработает...
а при двойном щелчке на заголовке сработают оба события

просто не люблю, когда в программе есть недостатки)))
меня, например, бесит когда я клацаю 2 раза по заголовку и делается то, что вовсе и не нужно делать в реальной жизни может никому и в голову не прийдет так клацать, но лично мне как разработчику это ой как не нравится.

[maladoy]

а чтобы не заморачиваться используй DevExpress-овский грид!!!

[SlavaSH]

Сообщение от maladoy

а чтобы не заморачиваться используй DevExpress-овский грид!!!

да нет, спасибо...
меня DBGridEh полностью устраивает, не хочу ничего другого

[SlavaSH]

спасибо всем за помощь

[Stilet]

а по двойному клику?

А двойной клик перехватывается одинарным по любому.

используй DevExpress-овский грид!!!

И придется с ним таскать его ActiveX