Farve på Speedbutton.

du kan lave en knap ved at bruge panel:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.BevelOuter:= bvlowered;
Panel1.Color:= ClBlue;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.BevelOuter:= bvraised;
Panel1.Color:= ClRed;
end;

så får du samme effekt som en knap

koden virker på denne måde når musen er over knappen skifter den til blue, og når den
forlader knappen skifter den til rød..
//stone

Det var nu ikke lige det jeg er ude efter, jeg har en form hvor der er nogle speedbuttons, når jeg trykker på en eller flere at disse skal den/de ændre baggrunds farve fra clBtnFace til f.eks. clSkyBlue.

Det skal bruges til indtastning af ugens tal i lotto, jeg er ved at lave et statistik program.

er du nød til at lave en component.

http://www.swissdelphicenter.ch/en/showcode.php?id=1100

Hej Stone

Jeg siger mange tak for hjælpen det er nogenlunde sådan en jeg skal bruge, jeg vil prøve at lave den componenten lidt om så det bliver til en TSpeedButton da knappen så vil have en 'XP style'.

:-)
Nymark

selv tak...

her er lige et link til diverse componenter

http://www.tmssoftware.com
//stone