Вывод текста в собственном компоненте

← →
Юрий Зотов © (2005-05-21 18:00) [40]

> Max_005 (21.05.05 17:39) [37]

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

Ваши слова будут справедливы в случае, когда модуль содержит ссылки на файлы ресурсов или код в секциях initialization и finalization. Такие ресурсы и код (а также все, что из этого кода вызывается) включаются в программу вместе с самим модулем.

← →
Max_005 (2005-05-21 23:58) [41]

У меня опять проблема возникла...:( В TYzDoubleTextImage надо чтобы на событие MouseUp делалось определенное действие, делаю так:
type TYzDoubleTextImage = class(TCustomControl) ... protected procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; ... procedure TMSCustomSkinMainMenu.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ... inherited; end;
Компилится все нормально. Но на это событие ничего не происходит(в самом компоненте)... Такое ощущение что курсор нажимается по TYzTextImage а не по TYzDoubleTextImage. Что делать?

← →
Max_005 (2005-05-22 15:11) [42]

Подскажите пожалуйста, что я опять неправильно делаю?

← →
Юрий Зотов © (2005-05-22 18:54) [43]

> Max_005 (21.05.05 23:58) [41]

> Такое ощущение что курсор нажимается по TYzTextImage а не по
> TYzDoubleTextImage.

Так оно и есть - ведь клик действительно происходит по TYzTextImage.

> Что делать?

То же самое - заместить метод MouseUp. Но в классе TYzTextImage, а не в TYzDoubleTextImage.

← →
Max_005 (2005-05-22 19:01) [44]

Я уже думал над этим... Не очень хотелось бы так делать... А как можно передать событие MouseUp по TYzTextImage в TYzDoubleTextImage? Сообщением? Или как-то попроще можно?

← →
Max_005 (2005-05-22 21:38) [45]

Я просто хочу сделать чтобы меню еще расскрывалось нажатием левой кнопкой мыши... Вот мне и нужно событие MouseUp в TYzDoubleTextImage, чтобы расскрывался Popup...

← →
Max_005 (2005-05-22 22:14) [46]

Я бы сделал это в TYzTextImage, но тут есть два но... Popup-то лучше наверно в TYzDoubleTextImage выставлять в свойствах... А еще TYzTextImag-и меняются постоянно, при наведении курсора... Я все же думаю лучше какнибудь сделать MouseUp в TYzDoubleTextImage, только вот как не знаю...:(

← →
Max_005 (2005-05-23 00:30) [47]

Так нельзя сделать? :(

← →
Max_005 (2005-05-23 13:43) [48]

:(((

← →
Max_005 (2005-05-24 18:30) [49]

type TYzTextImage = class(TGraphicControl) private FPicture: TPicture; procedure SetPicture(const Value: TPicture); procedure PictureChanged(Sender: TObject); procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; protected procedure Paint; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property Font; property ParentFont; property Picture: TPicture read FPicture write SetPicture; property Text; end; TYzDoubleTextImage = class(TCustomControl) private FUpTextImage: TYzTextImage; FMoveTextImage: TYzTextImage; procedure SetUpTextImage(const Value: TYzTextImage); procedure SetMoveTextImage(const Value: TYzTextImage); procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected procedure WMMouseDown(var Message: TMessage); message WM_MOUSEDOWN; procedure Paint; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property UpTextImage: TYzTextImage read FUpTextImage write SetUpTextImage; property MoveTextImage: TYzTextImage read FMoveTextImage write SetMoveTextImage; end; implementation .... procedure TYzDoubleTextImage.WMMouseDown(var Message: TMessage); begin inherited; //какие-то действия end;
Можно наверно так сделать... Но как мне тогда определить какая кнопка мыши была нажата, а еще позицию курсора(X, Y) в событии WMMouseDown?

Вывод текста в собственном компоненте Найти похожие ветки