BitBtn einrasten???

[Maxim Klimenko]

Hallo Leute.
Heute habe ich sehr viel Zeit damit verbracht, die BitBtn komponente zum einrasten zu zwingen, wie es halt in der Hilfe steht, ohne Erfolg.
Weiß da jemand wie ich einen Button (BitBtn) dauerhaft einrasten kann!
Es steht zwar in der Hilfe, dass es 4 Zustände gibt auch dieser, aber wie man es macht konnte ich nicht herrausfinden.
Danke.

[Hagen Reddmann]

Hi

Delphi TBitBtn unterstützen dieses Feature nicht, allerdings Windows. Schau mal in der Hilfe bei <b>CreateWindow()</b> -> <b>BUTTON</b> -> <b>BS_PUSHLIKE</b> und <b>BS_3STATE</b>.

Gruß Hage

[Maxim Klimenko]

Danke für Tipp, ich habe aber die Sache anders gelöst, vieleicht nicht schön aber es funktioniert. Ich habe die TPanel genommen und ein kleines procedure switch geschriben, wo ich ich die Eingenschaft BevelOuter zum einrasten benutze. Es funktioniert wunderbar, aber man sieht den Markierrahmen wenn die "Taste" Focus hat nicht

[Andreas Kosch]

Hallo,

warum wird kein <b>TSpeedButton</b> verwendet, dort legt Groupindex fest, welche Buttons als Wechselschalter einrasten sollen:
<pre>
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object SpeedButton1: TSpeedButton
Left = 48
Top = 96
Width = 25
Height = 22
GroupIndex = 1
end
object SpeedButton2: TSpeedButton
Left = 80
Top = 96
Width = 23
Height = 22
GroupIndex = 1
end
object SpeedButton3: TSpeedButton
Left = 128
Top = 96
Width = 23
Height = 22
end
end
</pre&gt