[Fox Mulder]

создаю компонент на основе Image. идея компонента - табличный редактор, берет из фаила данные и представляет в виде таблицы. Примерно тот же StringGrid только вся отрисовка данных сделана вручную. Примерно все представляю как и что, но есть и загвоздки. Мне нужно чтобы моему компоненту можно было передать фокус, как Edit'у или Memo. Чтобы можно было написать NewComponent.SetFocus. и после этого он обрабатывал бы все нажатия кнопок и тд. к примеру мне нужно чтобы он реагировал на прокрутку колесика мыши. если я правильно понимаю то после передачи ему фокуса это не составит труда, а так пробовал хуки, но все они либо вообще не работаю либо работают в какой то определенный момент. стоит мне шелкнуть на FileListBox например и все, мой компонент уже не ловит события от мыши. Но как создать свойство SetFocus у компонента. который отродясь им не обладает, я понятия не имею. Если кто знает подскажите плиз.

[angvelem]

Посмотри как реализовано это свойство у TWinControl и по аналогии создай своё.

[NumLock]

наследуйся от TCustomControl - как раз для таких целей. может и фокус получать и Paint с Canvas есть.

[Fox Mulder]

спасибо за ответы. попробовал TCustomControl, вроде бы подходит. только ни одного события, все надо прописывать

[NumLock]

ну естественно нужные тебе методы переопределить.

[Fox Mulder]

Конечно мне этот TCustomControl решив проблемы с фокусом создал много других проблем. Ему нельзя задать Popumenu. Как создать это свойство у него?
Прописал ему событие OnMouseDown, но без координат.
У меня :

Код:

procedure TForm1.MyComponent1MouseDown(Sender: TObject);

а должно быть соответствено:

Код:

procedure TForm1.MyComponent1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

как добавить x,y, button ?

[angvelem]

Ему нельзя задать Popumenu

Что то путаешь, смотрим производные от TCustomControl. К примеру:
TCustomControl->TCustomPanel->TPanel->published->PopupMenu
разбирайся где накосячил.

[Fox Mulder]

ктото из нас двоих чтото непонимает.

Что то путаешь, смотрим производные от TCustomControl. К примеру:
TCustomControl->TCustomPanel->TPanel->published->PopupMenu

так это ПРОИЗВОДНЫЕ ОТ TCustomControl.

если наследоваться от TCustomControl, то у компонента нету в инспекторе объектов Popupmenu, где можно указать какое popupmenu вызывать по щелчку мыши. наследоватьтся же от TPanel не имеет смысла так как у него нету Canvas, а он мне жизнено необходим.
попробовал наследоваться от TCustomPanel, popupmenu тоже нету

[angvelem]

так это ПРОИЗВОДНЫЕ ОТ TCustomControl.

Производные, наследники в данном случае одно и тоже. Я просто привёл пример первого попавшегося мне контрола унаследованного от TCustomControl и у которого имеется PopupMenu, поэтому и говорю, что где то напутано. Код представь.

[Fox Mulder]

Производные, наследники в данном случае одно и тоже

это я понял.

очевидно свойство Popupmenu добавлено в TPanel. почему его использовать я не могу я уже написал.
а чего код то.. создаю новый компонент ( Delphi 2007. через Component > New VCL Component ) , выбираю TCustomControl, сохраняю, инсталирую в среду. открываю форму, ставлю компонент, смотрю свойсвтва Popupmenu НЕТУ.

попробуйте сами создать компонент от TCustomControl и если у него будет Popupmenu - я дятел

[angvelem]

Я же говорил, посмотри как сделано в TPanel, ну ладно: ты забыл добавить в published свойство PopupMenu ручками

Код:

unit MyCmpnt_vcl;

interface

uses
  SysUtils, Classes, Controls;

type
  TCustomControl1 = class(TCustomControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property PopupMenu;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TCustomControl1]);
end;

end.

Свист - "с кем не бывает."
х/ф "Отроки во Вселенной"

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TPopupCustomControl = class(TCustomControl)
  private
    procedure DoMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property PopupMenu;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TPopupCustomControl }

constructor TPopupCustomControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnMouseDown:=DoMouseDown;
end;

procedure TPopupCustomControl.DoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage(IntToStr(X)+', '+IntToStr(Y));
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TPopupCustomControl.Create(Self) do
  begin
    Parent:=Self;
    Width:=100;
    Height:=100;
  end;
end;

end.

[angvelem]

Ненужное усложнение, добавка в published достаточна.

[NumLock]

angvelem , это про что сейчас было?

[angvelem]

Про это:

Код:

  published
    { Published declarations }
    property PopupMenu;

больше ничего добавлять не требуется.