Fra CompBase har jeg fundet en komponent BitBtnWithColor som jeg syntes var
sjovt at prøve og sovsen var med.
På formen lagde jeg en BitBtn og to alm. knapper og en ColorDialog.
I uses vel kompejleren ikke kendes ved ButtonWithColor samt i procedurene
kender den heller ikke Color
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons; ButtonWithColor;
type
TForm1 = class(TForm)
BitBtnWithColor1: TBitBtn;
Button2: TButton;
Button3: TButton;
ColorDialog1: TColorDialog;
procedure Button2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Button3Click(Sender: TObject);
procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
I uses vel komp. ikke kendes ved ButtonWithColor samt i procedurene kender
den heller ikke Color
implementation
{$R *.dfm}
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button2.Color := clLime;
Button2.Font.Style := [fsBold];
Button2.Caption := 'Pressed....';
end;
procedure TForm1.Button2MouseUp(Sender: TObject;
Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
Button2.Color := clBtnFace;
Button2.Font.Style := [];
Button2.Caption :='Press me!!!';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ColorDialog1.Color := Button3.Color;
if ColorDialog1.Execute then
Button3.Color := ColorDialog1.Color;
end;
end.
Er det ikke mugligt at køre en komponent som et almindeligt program
når som her sovsen er med ??
Er det mugligt må jeg jo gøre nogle fejl, men hvilke ??
På forhånd tak for et svar
m.v.h
Henning
|