TActionToolBar

← →
Кодер © (2005-01-05 15:40) [0]

Я использую TActionToolBar со стилем, по-умолчанию = StyleXP, так вот если нажатие кнопки ActionToolBar"a вызывает модальное окно, то вокруг кнопки, которая была нажата остается окоймляющий квадрат. Вот такая бага D7. Я нашел в модуле D7, где это все рисуется, но блин неохота лезть туда... Может как-то можно мирным путем решить и обойтись без переписывания исходного текста модулей Delphi?

← →
asvt (2005-01-05 18:39) [1]

unit1;
interface
uses ......

Type TActionToolBar = class(modulename.TActionToolBa)
{В каком это надо блоке пишешь procedure с тем же названием которую перекрыть надо }
private

public

protected
procedure Proc(параметры); override;
end;

type Tform1 = class(TForm)
ActionBar1: TActionBar;
private

public

end;

implementation
{$ .dfm}

procedure TActionToolBar.Proc(параметры);
begin
Но тут уж сам решай
inherited
end;

{далее процедуры формы}

end.

Кодер © (05.01.05 15:40)

Кромк этого квадратика в нем есть еще глюки.
Ищи неофицальный патч этих компонент или ставь сторонние компонентики.

TActionToolBar Найти похожие ветки