Спасибо!

Извини, Spawn за вопрос, а как сделать обработчик события ONCLICK?

Цитата(Sarge @ 24.5.2003, 15:48)

Извини, Spawn за вопрос, а как сделать обработчик события ONCLICK?

Напиши прототип обработчика OnClick и присвой его обработчику етой кнопки. А можно новые компоненты устанавливать - Component>InstallComponent. Тогда он будет добавлен к компонентам и ты сможешь использовать его обработчики стандартным образом.

Для прототипа обработчика делаешь, например так:

Код

procedure TForm1.OnMyButtonClick(Sender:TObject); begin ShowMessage('lalala'); end; //Не забуть добавить  в private или public формы //procedure OnMyButtonClick(Sender:TObject); //Присваиваешь обработчик MyButton.OnClick:=OnMyButtonClick;

но если ты будешь пользоваться моим примером, то там надо еще добавить обработку перерисовки компонента на паре событий, а именно CM_MOUSEENTER(или как то по другому) и CM_MOUSELEAVE.

Это сообщение отредактировал(а) <Spawn> - 25.5.2003, 08:32

Вот, взято из Кулибы:

Цветная кнопка

В книгах Калверта, Свана и других авторов можно найти похожий текст. Смысл текста – "Изменить цвет кнопок Button, BitBtn нельзя, т.к. их рисует WINDOWS". Если нельзя, но ОЧЕНЬ НУЖНО, то можно.

Небольшой компонент ColorBtn, дает возможность использовать в кнопках цвет. Кроме того, представлено новое свойство - Frame3D, позволяющее получить более реалистичный вид нажатой кнопки. В отличие от API, при изменении значения свойства Frame3D, не требуется переоткрытие компонента.

Код

unit colorbtn; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TColorBtn = class(TButton) private FCanvas: TCanvas; IsFocused: Boolean; F3DFrame: boolean; FButtonColor: TColor; procedure Set3DFrame(Value: boolean); procedure SetButtonColor(Value: TColor); procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM; procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK; procedure DrawButtonText(const Caption: string; TRC: TRect; State: TButtonState; BiDiFlags: Longint); procedure CalcuateTextPosition(const Caption: string; var TRC: TRect; BiDiFlags: Longint); protected procedure CreateParams(var Params: TCreateParams); override; procedure SetButtonStyle(ADefault: Boolean); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property ButtonColor: TColor read FButtonColor write SetButtonColor default clBtnFace; property Frame3D: boolean read F3DFrame write Set3DFrame default False; end; procedure Register; implementation { TColorBtn } constructor TColorBtn.Create(AOwner: TComponent); begin Inherited Create(AOwner); Height:= 21; FCanvas:= TCanvas.Create; FButtonColor:= clBtnFace; F3DFrame:= False; end; destructor TColorBtn.Destroy; begin FCanvas.Free; Inherited Destroy; end; procedure TColorBtn.CreateParams(var Params: TCreateParams); begin Inherited CreateParams(Params); with Params do Style:= Style or BS_OWNERDRAW; end; procedure TColorBtn.Set3DFrame(Value: boolean); begin if F3DFrame <> Value then F3DFrame:= Value; end; procedure TColorBtn.SetButtonColor(Value: TColor); begin if FButtonColor <> Value then begin FButtonColor:= Value; Invalidate; end; end; procedure TColorBtn.WMLButtonDblClk(var Message: TWMLButtonDblClk); begin Perform(WM_LBUTTONDOWN, Message.Keys, Longint(Message.Pos)); end; procedure TColorBtn.SetButtonStyle(ADefault: Boolean); begin if IsFocused <> ADefault then IsFocused:= ADefault; end; procedure TColorBtn.CNDrawItem(var Message: TWMDrawItem); var RC: TRect; Flags: Longint; State: TButtonState; IsDown, IsDefault: Boolean; DrawItemStruct: TDrawItemStruct; begin DrawItemStruct:= Message.DrawItemStruct^; FCanvas.Handle:= DrawItemStruct.HDC; RC:= ClientRect; with DrawItemStruct do begin IsDown:= ItemState and ODS_SELECTED <> 0; IsDefault:= ItemState and ODS_FOCUS <> 0; if not Enabled then State:= bsDisabled else if IsDown then State:= bsDown else State:= bsUp; end; Flags:= DFCS_BUTTONPUSH or DFCS_ADJUSTRECT; if IsDown then Flags:= Flags or DFCS_PUSHED; if DrawItemStruct.ItemState and ODS_DISABLED <> 0 then Flags:= Flags or DFCS_INACTIVE; if IsFocused or IsDefault then begin FCanvas.Pen.Color:= clWindowFrame; FCanvas.Pen.Width:= 1; FCanvas.Brush.Style:= bsClear; FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom); InflateRect(RC, -1, -1); end; if IsDown then begin FCanvas.Pen.Color:= clBtnShadow; FCanvas.Pen.Width:= 1; FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom); InflateRect(RC, -1, -1); if F3DFrame then begin FCanvas.Pen.Color:= FButtonColor; FCanvas.Pen.Width:= 1; DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags); end; end else DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags); FCanvas.Brush.Color:= FButtonColor; FCanvas.FillRect(RC); InflateRect(RC, 1, 1); if IsFocused then begin RC:= ClientRect; InflateRect(RC, -1, -1); end; FCanvas.Font:= Self.Font; if IsDown then OffsetRect(RC, 1, 1); DrawButtonText(Caption, RC, State, 0); if IsFocused and IsDefault then begin RC:= ClientRect; InflateRect(RC, -4, -4); FCanvas.Pen.Color:= clWindowFrame; Windows.DrawFocusRect(FCanvas.Handle, RC); end; FCanvas.Handle:= 0; end; procedure TColorBtn.CalcuateTextPosition(const Caption: string; var TRC: TRect; BiDiFlags: Integer); var TB: TRect; TS, TP: TPoint; begin with FCanvas do begin TB:= Rect(0, 0, TRC.Right + TRC.Left, TRC.Top + TRC.Bottom); DrawText(Handle, PChar(Caption), Length(Caption), TB, DT_CALCRECT or BiDiFlags); TS:= Point(TB.Right - TB.Left, TB.Bottom - TB.Top); TP.X:= ((TRC.Right - TRC.Left) - TS.X + 1) div 2; TP.Y:= ((TRC.Bottom - TRC.Top) - TS.Y + 1) div 2; OffsetRect(TB, TP.X + TRC.Left, TP.Y + TRC.Top); TRC:= TB; end; end; procedure TColorBtn.DrawButtonText(const Caption: string; TRC: TRect; State: TButtonState; BiDiFlags: Integer); begin with FCanvas do begin CalcuateTextPosition(Caption, TRC, BiDiFlags); Brush.Style:= bsClear; if State = bsDisabled then begin OffsetRect(TRC, 1, 1); Font.Color:= clBtnHighlight; DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags); OffsetRect(TRC, -1, -1); Font.Color:= clBtnShadow; DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags); end else DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags); end; end; procedure Register; begin RegisterComponents('Controls', [TColorBtn]); end; end.

Небольшое дополнение. Кнопку по прежнему рисует WINDOWS, а раскрашивает ее ColorBtn. Код компонента на 90% повторяет код BitBtn, ничего необычного здесь нет. Хочется повторить слова Калверта – "Пользуйтесь исходным кодом". Чаще заглядывайте в VCL - можно найти много интересного.

Здесь есть о цветной кнопке, а также ещё много интересго

http://www.symbol.ru/library/delphi_secrets/

Чтобы перекрасить кнопку достаточно знать ее хендл. Код приведенный Pegas-ом, конечно полезен. Но чтобы был понятен смысл всего вышеизложенного можно вкратце написать, следующее:
Чтобы закрасить контрол другим цветом нужно через его хендл получить контекст устройства - HDC (f.e. ButtonDC:=GetWindowDC(Button.Handle)). Затем создать экземпляр класса TCanvas (f.e. ButtonCanvas:=TCanvas.Create) и назначить ему полученный контекст устройства (ButtonCanvas.Handle:=ButtonDC). Теперь используем этот "настроеный" канвас для отрисовки изображения на контроле. Можно использовать и сам HDC для отрисовки API-функциями. У меня была похожая задача, только рисовать надо было на TListBox.

А я решил всё подругому, в лоб!
По ходу программы создаю TBitmap и присваиваю кнопке.
Причем кнопка получается как у SPAWN без его километрового кода, и не глючит...
Я очень долго мучался с краями, поэтому получился такой странный код.
Смотрите код, пропишите функцию:

Код

Function Fill(clr:Tcolor; brd:Integer; rec:TRect):TBitmap; begin if brd>0 then brd:=brd+1 else brd:=-1; with result do begin result:=TBitmap.Create; Height:=rec.Bottom-2*brd; Width:=rec.Right-2*brd; canvas.Brush.Color:=clr; Canvas.FillRect(Rect(0, 0,Width-1, Height-1)); end; end;

И её вызов, например:

Код

BitBtn1.Glyph:=Fill(clred,2,bitbtn1.ClientRect);

параметр brd означает отступление от краёв кнопки, если поставить 0 то она просто закрасится сплошняком, я использую 2.
И заметьте, что ведь у меня (пока) самый простой и эффективный способ!!!

Sarge, я не понял как у тебя будут обрабатываться клики на кнопке (в предидущик примерах это есть).

Это был код общего применения.
А этот заточен под кнопку TBitBtn:

Код

procedure KickBitBtn(frag:TBitBtn; clr:TColor; board:integer);overload; var bmp:Tbitmap; begin if board>0 then board:=board+1 else board:=-1; with bmp do begin bmp:=TBitmap.Create; Height:=frag.Height-2*board; Width:=frag.Width-2*board; canvas.Brush.Color:=clr; Canvas.FillRect(Rect(0, 0,Width-1, Height-1)); frag.Glyph:=bmp; end; end;

И используется так:

Код

KickBitBtn(BitBtn1, clblue, 2);

Работает пока без caption, поставьте Caption:='' и получится голая кнопка, а иначе пока не хочет, буду думать...

Это сообщение отредактировал(а) Sarge - 2.6.2003, 15:15

Unregistered, клики обрабатываются стандартным образом, потому что кнопка создаётся сатически.
Просто кидаешь на форму BitBtn Создаёшь обработчик события OnClick...
Понял?

А хотя нет...
Моя кнопка работает только без Caption...
Может быть кто-нибудь знает как сделать Caption?
Просто я рачитывал, что текст можно поместить поверх рисунка, а насамом деле только слева, справа, сверху, или снизу...
Обломчик, хотя... может быть кому то нужна пустая кнопка...

А что за проблема текст вывести?

Цитата(Sarge @ 2.6.2003, 07:11)

А хотя нет... Моя кнопка работает только без Caption... Может быть кто-нибудь знает как сделать Caption? Просто я рачитывал, что текст можно поместить поверх рисунка, а насамом деле только слева, справа, сверху, или снизу... Обломчик, хотя... может быть кому то нужна пустая кнопка...

TextOut()?

Sarge извини конечно, но твой код по моему не имеет смысла...т.е. он может и работает (не смотрел), но для чего так делать? Ставить на форму TBitButton только для для того чтобы получить его рект и наложить на него битмап? Тебе же сказали, если тебе нужен такой подход - целесообразней использовать TImage. И в зависимости от состояния подгружай в него картинки (например из TImageList), а еще лучше наследника от него (TImage) сделать и добавить св-ва на разные состояния. Хотя тут вариантов много.
PS Я хочу сказать, что твой код - не ответ на поставленный тобой вопрос.

Да, а как на счет TButton?
Чтобы не быть голословным -
вот что-то приблизительное, то о чем я писал уже:

procedure ChgClr(Sender:TButtonControl;clr,capclr:TColor;Caption:string);
var DC:HDC;//контекст устройства
Cnvs:TCanvas;
begin
Cnvs:=TCanvas.Create;
DC:=GetWindowDC(Sender.Handle);
Cnvs.Handle:=DC;
Cnvs.Brush.Color:=clr;
Cnvs.Font.Color:=capclr;
Cnvs.FillRect(Sender.ClientRect);
Cnvs.TextRect(Sender.ClientRect,0,0,Caption);
ReleaseDC(Sender.Handle,dc);
Cnvs.Free;
end;