Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
27. Dez 2005
Weil
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to Pred(ControlCount) do
begin
if (Controls is TSpeedButton) then
Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
27. Dez 2005
was spricht bittesehr dagegen, bei allen den groupindex auf 0 zu lassen?
(merke: groupindex = 0 ^= nicht zu einer group gehörend)
Dagegen spricht die Eigenschaft down. Wie gesagt ich weiß nicht genau was für ein Spiel das wird, aber wenn jmd. SpeedButtons nimmt, dann spricht einiges dafür, dass man einige gedrückt lässt und andere nicht. Alle Speedbuttons mit gleichem Groupindex gehören...
Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
26. Dez 2005
Sorry, aber von welchem Code genau sprichst du denn gerade? :wink:
Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
25. Dez 2005
Ja, du solltest natürlich dann auch noch die Position der Buttons anpassen, die Größe, ... (alles was du setzen möchtest) und dann müsstest du die wohl auch noch auf das Formular einfügen (guck mal unter den Methoden von TForm oder so, da gibt es etwas wie InsertControl).
Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
25. Dez 2005
Aber die hätten nicht die Eigenschaft down, denke die wird gebraucht wenn der Groupindex unterschiedlich sein muss.
Meinte ja auch im Code
procedure TForm1.FormCreate(Sender: TObject);
var
Button : TSpeedButton;
Forum: Sonstige Fragen zu Delphi
Delphi
by Der_Unwissende,
25. Dez 2005
Hi,
äh mal eine ganz dumme Frage, warum zählst du nicht von 1 immer rauf? SpeedButton1.GroupIndex = 1, SpeedButton2.GroupIndex = 2,...
Gruß Der Unwissende