VPF::TSringGrid - Форум программистов

CHERRY

Дата 16.7.2009, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

На StringGrid создаются 3 кнопки.
Как одной процедурой обработать 3 события.

Код


unit TestStringGrid;

interface

uses
  SysUtils, Classes, Controls, Grids,Dialogs,DesignIntf,Buttons;

Type
THeaderClickEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of object;

type
  TTestStringGrid = class(TStringGrid)
  private
    { Private declarations }
    sb:Array[1..3] of TBitBtn;
    fHeader:THeaderClickEvent;
  protected
    { Protected declarations }
   procedure HeaderClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
   property  OnHeaderClick:THeaderClickEvent read fHeader write fHeader;
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('CherryLib', [TTestStringGrid]);
end;

constructor TTestStringGrid.create(aowner:Tcomponent);
Var i:Integer;
begin
inherited create(aowner);
  //создаем кнопки в заголовке
  For i:=1 To 3 Do
  Begin
   sb[i]:=TBitBtn.Create(Self);
   sb[i].Parent:=Self;
   sb[i].Height:=RowHeights[0];
   //sb[i].Font.Style:=[fsBold];
   sb[i].Glyph.LoadFromResourceName(HInstance,'DN');
   sb[i].OnMouseDown:=HeaderClick;
  End;
  //sb[1].OnMouseDown:=BtnClick1;
  //sb[2].OnMouseDown:=BtnClick2;
  //sb[3].OnMouseDown:=BtnClick3;

  sb[1].Left:=0;
  sb[1].Width:=ColWidths[0]+ColWidths[1]+ColWidths[2];
  sb[1].Caption:='Имя';
  sb[2].Left:=sb[1].Width;
  sb[2].Width:=ColWidths[3];
  sb[2].Caption:='Размер';
  sb[3].Left:=sb[1].Width+sb[2].Width;
  sb[3].Width:=ColWidths[4];
  sb[3].Caption:='Модификация';
  //окончане создания кнопок

end;

procedure TTestStringGrid.HeaderClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
Var i:Integer; name:String;
Begin
  if Sender is TComponent then
  Begin
   name:=(Sender as TComponent).Name;
   For i:=1 To 3 Do
    if (Sender as TComponent).Name = 'im'+IntToStr(i) then
    Begin
    showmessage('HeaderClick'+IntToStr(i));
    End;
  End;

 IF  assigned(fHeader) Then  fHeader(Self,Button,Shift,X,Y)
End;

end.

Внутри компонента (Sender as TComponent).Name='';
Если создать событие в тестовой программе, то (Sender as TComponent).Name возвращает TestStringGrid1.
Кнопки как бы растворяются в компоненте.
Событие OnClick от кнопок вообще не генерится.

--------------------

Трясу надежды ветвь, но где желанный плод?

kami

Дата 16.7.2009, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(CHERRY @ 16.7.2009, 16:10

)

Внутри компонента (Sender as TComponent).Name='';

Само собой.
Где присваивание типа

Код


sb[i].Name:='im'+IntToStr(i);

CHERRY

Дата 16.7.2009, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Спасибо! Прозрел! smile

--------------------

Трясу надежды ветвь, но где желанный плод?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »