Определить, когда TMediaPlayer закончил проигрывание

Как в run-time Action добавить в ActionList?

2017-09-06T21:45:47+07:00

Code:

var

{©Drkb v.3(2007): www.drkb.ru}

NewAction : TAction;

begin

NewAction := TAction.Create(self);

NewAction.ActionList := ActionList1;

end;

Автор ответа: Dayana

Создание и регистрация Action на низком уровне

2017-09-06T21:46:39+07:00

Функция CreateAction (AOwner: TComponent;ActionClass: TBasicActionClass ):TBasicAction;

Модуль: ActnList

Функция создает действие (Action) заданного типа, которое отображается во время проектирования в редакторе списка Action.

Тип Action указывается в параметре ActionClass.

Вызов функции аналогичен выполнению кода ActionClass.Create(AOwner), за исключением того, что функция CreateAction использует значение параметра Resource процедуры RegisterActions для инициализации значений action-объекта, основанного на данном параметре.

Подробнее...

Автоматически нажимающаяся кнопка

2017-09-08T15:59:37+07:00

Этот компонент представляет из себя кнопку, на которую не надо нажимать, чтобы получить событие OnClick. Достаточно переместить курсор мышки на кнопку. При создании такого компонента традиционным способом, требуется довольно много времени, так как необходимо обрабатывать мышку, перехватывать её и т.д. Однако результат стоит того!

Подробнее...

Визуализация нажатия кнопки

2017-09-08T16:20:00+07:00

Я знаю как нажать кнопку через keypress, но хотя пользователь определил действие в обработчике события OnClick, сама кнопка не отражает видимых изменений, происходящих при ее нажатии мышью. Кто-нибудь может мне помочь?

Вы можете сделать кнопку "нажатой" или "ненажатой", посылая ей сообщение BM_SETSTATE. Определить ее текущее состояние можно, послав ей сообщение BM_GETSTATE.

Для нажатия кнопки:

Подробнее...

Если прозрачная часть glyph'а становится видной...

2017-09-08T16:11:51+07:00

В некоторых видео режимах прозрачная часть glyph'а стандартного TBitBtn становится видной. Как этого избежать?

В примере используется техника закраски прозрачной части glyph'а цветом кнопки на которой он находится - таким образом glyph кажется прозрачным.

Подробнее...

Из ресурсов поочередно загружать глифы для кнопок SpeedButton

2017-09-08T16:24:17+07:00

Автор: Dennis Passmore

Могу ли я из ресурсов поочередно загружать глифы для кнопок speedbutton и, если да, то как это сделать?

Например, если в вашем проекте используется TDBGrid, то иконки кнопок компонента DBNavigator могут линковаться вашей программой, и их можно загрузить для использования в ваших speedbutton следующим образом:

Подробнее...

Как изменить цвет TButton?

2017-09-08T16:09:35+07:00

Вы не можете изменить цвет стандартного TButton, так как кнопки управления окнами всегда рисует себя с

цвет кнопки определяется в панели управления. Но можно создать создать новый компонент TButton и ручка

и рисунок поведения есть.

Подробнее...

Как програмно нажать SpeedButton?

2017-09-08T15:53:52+07:00

Code:

SpeedButton1.Perform(WM_LBUTTONDOWN, 0, 0);

SpeedButton1.Perform(WM_LBUTTONUP, 0, 0);

Как сделать многострочную надпись на TBitBtn?

2017-09-08T16:10:56+07:00

Выводите текст надписи непосредственно на "glyph" TBitBtn'а

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

R: TRect;

N: Integer;

Buff: array[0..255] of Char;

begin

with BitBtn1 do

begin

Caption := 'A really really long caption';

Glyph.Canvas.Font := Self.Font;

Glyph.Width := Width - 6;

Glyph.Height := Height - 6;

R := Bounds(0, 0, Glyph.Width, 0);

StrPCopy(Buff, Caption);

Caption := '';

DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,

DT_CENTER or DT_WORDBREAK or DT_CALCRECT);

OffsetRect(R, (Glyph.Width - R.Right) div 2,

(Glyph.Height - R.Bottom) div 2);

DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,

DT_CENTER or DT_WORDBREAK);

end;

Подробнее...

Как текст на кнопке расположить под заданным углом

2017-09-08T16:25:13+07:00

Как выдать текст под наклоном?

Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например «Arial»). Например:

Подробнее...

Кнопка или пункт меню выполняет другую функцию при нажатой кнопке shift

2017-09-08T16:01:58+07:00

сли вы хотите, чтобы кнопка или пункт меню выполнял другую функцию при нажатой кнопке shift ,

вы можете использовать функцию GetKeyState .

GetKeyState принимает в качестве параметра виртуальный код кнопки и возвращает значение меньше 0,

если кнопка нажата.

Подробнее...

Кнопка с закругленными краями

2017-09-08T16:27:32+07:00

Code:

unit RVButton;

interface

uses

SysUtils, Classes, Controls, Messages, Graphics, Windows;

const

iOffset = 3;

type

TRVButton = class(TGraphicControl)

private

FCaption : string;

FButtonColor: TColor;

FLButtonDown: boolean;

FBtnPoints : array[1..2] of TPoint;

FKRgn : HRgn;

procedure SetCaption(Value: string);

procedure SetButtonColor(Value: TColor);

procedure FreeRegion;

protected

procedure Paint; override;

procedure DrawCircle;

procedure MoveButton;

procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;

procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

published

property ButtonColor: TColor read FButtonColor write SetButtonColor;

property Caption: string read FCaption write SetCaption;

property Enabled;

property Font;

property ParentFont;

property ParentShowHint;

property ShowHint;

property Visible;

property OnClick;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [TRVButton]);

end;

{ TRVButton }

constructor TRVButton.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

ControlStyle := [csClickEvents,csCaptureMouse];

Width := 50;

Height := 50;

FButtonColor := clBtnFace;

FKRgn := 0;

FLButtonDown := False;

end;

destructor TRVButton.Destroy;

begin

if FKRgn <> 0 then FreeRegion;

inherited Destroy;

end;

procedure TRVButton.DrawCircle;

begin

FBtnPoints[1] := Point(iOffset,iOffset);

FBtnPoints[2] := Point(Width - iOffset,Height - iOffset);

FKRgn := CreateEllipticRgn(FBtnPoints[1].x,FBtnPoints[1].y,FBtnPoints[2].x,FBtnPoints[2].y);

Canvas.Brush.Color := FButtonColor;

FillRgn(Canvas.Handle,FKRgn,Canvas.Brush.Handle);

MoveButton;

end;

procedure TRVButton.FreeRegion;

begin

if FKRgn <> 0 then DeleteObject(FKRgn);

FKRgn := 0;

end;

procedure TRVButton.MoveButton;

var

Color1: TColor;

Color2: TColor;

begin

with Canvas do

begin

if not FLButtonDown then

begin

Color1 := clBtnHighlight;

Color2 := clBtnShadow;

end

else

begin

Color1 := clBtnShadow;

Color2 := clBtnHighLight;

end;

Pen.Width := 1;

if FLButtonDown then Pen.Color := clBlack

else Pen.Color := Color2;

Ellipse(FBtnPoints[1].x - 2,FBtnPoints[1].y - 2,FBtnPoints[2].x + 2,FBtnPoints[2].y + 2);

if not FLButtonDown then Pen.Width := 2

else Pen.Width := 1;

Pen.Color := Color1;

Arc(FBtnPoints[1].x,FBtnPoints[1].y,FBtnPoints[2].x,FBtnPoints[2].y,

FBtnPoints[2].x,FBtnPoints[1].y,FBtnPoints[1].x,FBtnPoints[2].y);

Pen.Color := Color2;

Arc(FBtnPoints[1].x,FBtnPoints[1].y,FBtnPoints[2].x,FBtnPoints[2].y,

FBtnPoints[1].x,FBtnPoints[2].y,FBtnPoints[2].x,FBtnPoints[1].y);

end;

SetCaption('');

end;

procedure TRVButton.Paint;

begin

inherited Paint;

FreeRegion;

DrawCircle;

end;

procedure TRVButton.SetButtonColor(Value: TColor);

begin

if Value <> FButtonColor then

begin

FButtonColor := Value;

Invalidate;

end;

procedure TRVButton.SetCaption(Value: string);

var

X: Integer;

Y: Integer;

begin

if ((Value <> FCaption) and (Value <> '')) then

begin

FCaption := Value;

end;

with Canvas.Font do

begin

Name := Font.Name;

Size := Font.Size;

Style := Font.Style;

if Self.Enabled then Color := Font.Color

else

Color := clDkGray;

end;

X := (Width div 2) - (Canvas.TextWidth(FCaption) div 2);

Y := (Height div 2) - (Canvas.TextHeight(FCaption) div 2);

Canvas.TextOut(X, Y, FCaption);

// Invalidate;

end;

procedure TRVButton.WMLButtonDown(var Message: TWMLButtonDown);

begin

if not PtInRegion(FKRgn,Message.xPos,Message.yPos) then exit;

FLButtonDown := True;

MoveButton;

inherited;

end;

procedure TRVButton.WMLButtonUp(var Message: TWMLButtonUp);

begin

if not FLButtonDown then exit;

FLButtonDown := False;

MoveButton;

inherited;

end;

end.

Кнопка с многострочным заголовком

2017-09-08T16:26:38+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

i := GetWindowLong(Button1.Handle, GWL_STYLE);

SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);

Button1.Caption := 'Delphi World - ' + #13#10 + 'лучше не бывает!';

end;

Подробнее...

Кнопка со звуком

2017-09-08T16:00:54+07:00

Когда Вы нажимаете на кнопку, то видите трёхмерный эффект нажатия. А как же насчёт четвёртого измерения, например звука ? Ну тогда нам понадобится звук для нажатия и звук для отпускания кнопки. Если есть желание, то можно добавить даже речевую подсказку, однако не будем сильно углубляться.

Компонент звуковой кнопки имеет два новых свойства:

Подробнее...

Можно ли из 3-х Image(картинок) сделать компонент-кнопку

2017-09-08T16:15:12+07:00

Мастера у меня назрел еще такой вопрос! Можно ли из 3-х Image(картинок) сделать компонент-кнопку, т.е у меня есть три картинки: кнопка обычная, нажатая и активная (на ней курсор мышки)? Я конечно могу каждый раз на форму кидать по три Image, вставляя в каждый Image картинку, но это только на одну кнопку 3 image'a, а если я хочу 10 кнопок, то это будет уже 30 image'ей!!! Я представляю, что у кнопки должны быть такие свойства как у Image'a, и в свойствах этого компонета дожны быть ссылки на 3 картинки, отвечающие нужному состоянию. Сразу скажу, что BitBtn не подойдет, так как форма кнопки прямоугольником и не повторяет форму рисунка в картинки. Компонент Image он тоже прямоугольный, но если всавить в него картинку и назначить свойство Transparent, Image станет при этом позрачный и повторит форму рисунка в картинке, т.е. рисунка кнопки.

Подробнее...

Можно ли использовать иконку как картинку на кнопке TSpeedButton?

2017-09-08T16:12:33+07:00

Code:

uses ShellApi;

procedure TForm1.FormShow(Sender: TObject);

var

Icon: TIcon;

begin

Icon := TIcon.Create;

Icon.Handle := ExtractIcon(0, 'C:\WINDOWS\NOTEPAD.EXE', 1);

SpeedButton1.Glyph.Width := Icon.Width;

SpeedButton1.Glyph.Height := Icon.Height;

SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);

Icon.Free;

end;

Пример компонента типа XPButton

2017-09-08T16:13:50+07:00

Раньше казалось, что невозможно было преодолеть нестабильность Windows-98. Но теперь мы видим, что Windows XP ее в этом преодолела.

Подробнее...

Расширяем возможности кнопок в Delphi.

2017-09-08T15:55:40+07:00

Автор: Maarten de Haan

Пример показывает, как сделать кнопку с тремя состояниями. В обычном состоянии она сливается с формой. При наведении на такую кнопку курсором мышки, она становится выпуклой. Ну и, соотвественно, при нажатии, кнопка становится вогнутой.

Также можно создать до 4-х изображений для индикации состояния кнопки

<--------- Ширина --------->

+------+------+-----+------+ ^

| пке |делами| | | |

+------+------+-----+------+ v

Подробнее...

Смена иконки BitBtn во время работы приложения

2017-09-08T16:28:14+07:00

Иконка компонента является инкапсулированным объектом, требующим для хранения изображения некоторый участок памяти. Следовательно, при замене иконки, память, связанная с первоначальной иконкой, должна возвратиться в кучу, а для новой иконки требуется новое распределение памяти. По правилам Delphi, этим должен заниматься метод "Assign". Ниже приведен код всей процедуры замены иконки.

Подробнее...

Создать неактивные пиктограммы для TSpeedButton и TBitBtn во время выполнения

2017-09-08T16:29:02+07:00

Code:

procedure AddDisableBMP(SB : array of TObject);

var

BM, SBM : TBitmap;

w, x, y, NewColor, i : integer;

PixelColor : TColor;

begin

BM := TBitmap.Create;

SBM := TBitmap.Create;

try

for i := 0 to High(SB) do

begin

if (SB[i] is TSpeedButton) then

BM.Assign((SB[i] as TSpeedButton).Glyph)

else if (SB[i] is TBitBtn) then

BM.Assign((SB[i] as TBitBtn).Glyph)

else

Exit;

if not Assigned(BM) or (BM.Width <> BM.Height) then Exit;

w := BM.Width;

SBM.Width := w * 2;

SBM.Height := w;

SBM.Canvas.Draw(0, 0, BM);

for x := 0 to w - 1 do

for y := 0 to w - 1 do

begin

PixelColor := ColorToRGB(BM.Canvas.Pixels[x, y]);

NewColor := Round((((PixelColor shr 16) + ((PixelColor shr 8) and $00FF) +

(PixelColor and $0000FF)) div 3)) div 2 + 96;

BM.Canvas.Pixels[x, y] := RGB(NewColor, NewColor, NewColor);

end;

SBM.Canvas.Draw(w, 0, BM);

if (SB[i] is TSpeedButton) then with (SB[i] as TSpeedButton) do

begin

Glyph.Assign(SBM);

NumGlyphs := 2;

end

else

with (SB[i] as TBitBtn) do

begin

Glyph.Assign(SBM);

NumGlyphs := 2;

end;

BM := TBitmap.Create;

SBM := TBitmap.Create;

end;

finally

BM.Free;

SBM.Free;

end;