Problem mit Speedbutton

[Ozelot]

Hallo liebe Delphi Freunde,
ich programmiere ein Programm mit einem Paintbrush Programmteil. Ich habe dazu ein Tutorial benutzt und alles hat wunderbar funktioniert. Jetzt habe ich eine zweite Version programmiert mit vielen Unter-Formularen (15 Unterformulare). In die zweite Version bette ich nun auch den Paintbrush Programmteil ein auf das Hauptformular. Der Paintbrush Programmteil beinhaltet übrigens einen Speedbutton mit abgebildetem Stift darauf mit dem ich die Stiftauswahl aktivieren oder deaktivieren kann. In der zweiten Version meines Programmes funktioniert der Speedbutton nicht mehr- bei draufklicken wird nicht "down" aktiviert und ich kann nichts pinseln.
Warum funktioniert der Speedbutton nicht mehr? Ich habe beim Groupindex schon alle möglichen Werte ausprobiert aber es hat nicht geholfen.
Danke für Antworten.

[DeddyH]

Wie sieht denn die dfm aus?

P.S.: Kann es sein, dass ich Dich unter einem anderen Nicknamen aus einem anderen Forum kenne?

[Ozelot]

Die dfm? Das Hauptformular besteht aus einem Hintergrundbild, es gibt keine weiteren Buttons und es gibt ein Main menue, die 15 Unterformulare haben jeweils ein Memo Feld.
Compiliere ich so tauchen die ganzen Unterformulare auf und der Speedbutton ist defekt.
Wahrscheinlich muss ich mir mit Images nachhelfen und aus 3 Images meinen eigenen button kreieren...

P.S.: Völlig unwahrscheinlich dass wir uns kennen.

[Popov]

In der Hilfe steht:

Zitat:

Down kann nur verwendet werden, wenn die Eigenschaft GroupIndex des Schalters einen Wert ungleich Null hat.

Edit:
Achso, man sollte stets alles lesen, auch den letzten Satz. Das hast du ja schon gemacht.

PS: ist es nur ein Button oder mindestens zwei?

[Uwe Raabe]

Kann es sein, daß der SpeedButton im Original mit einer Action verlinkt war und beim Übernehmen dieser Link verloren gegangen ist?

[DeddyH]

Wenn man auf dem Formular das Kontextmenü aufruft, kann man sich über "Ansicht als Text" die Einstellungen anschauen. Und der Abschnitt mit dem Speedbutton wäre interessant gewesen, den hätte ich gern mal gesehen.

[Ozelot]

@Uwe Raabe: Nein da war keine Action verbunden mit dem Speedbutton.
@DeddyH: Guter Hinweis, da steht nämlich nichts über den Speedbutton. Beim Kopieren des Speedbuttons von der alten Programmversion in die neue ist scheinbar die Beschreibung des Speedbuttons verloren gegangen.
Ich fange nochmal ganz von vorne an, Schritt für Schritt, mache den Speedbutton nochmal selbst ohne Copy und paste.
Ansonsten vielen Dank, es müsste bald klappen...

[DateTimeError]

Die Eigenschaft

Delphi-Quellcode:

AllowAllUp

des SpeedButtons im OI hast du aber bemerkt?

[Ozelot]

Hallo
@DateTimeError: AllowAllup ist auf true. Es gibt übrigens keine anderen Speedbuttons.
Ich habe das ganze Programm neu geschrieben auf meinem anderen Rechner.
Der Speedbutton war im Formulartext übrigens nicht weg, sondern versteckt zwischen zwei großen Bilddaten- Angaben.
Nachdem ich nun einen Speedbutton eingefügt habe, unter Glyph ein bmp geladen habe, erscheint folgendes im Text @DeddyH: (Left, Top, width, height) Allowallup=true, GroupIndex=1, Glyph.Data=... OnMouseDown=Image2MouseDown,OnMouseMove=Image2Mous eMove, OnMouseUp=Image2MouseUp

Image2 wird der Ort sein auf dem gezeichnet wird. Die Image2 Prozeduren muss ich noch näher definieren, dann sollte es klappen :? Ich habe mit Showmessage die Image2 Befehle bestückt, es zeichnet sich ab: Der Button reagiert weder auf überfahren noch auf klicken mit einer grafischen Änderung.
Es hat irgend etwas mit den Unterformularen zu tun... auf der Version ohne Unterformulare habe ich keine Probleme mit dem Speedbutton.
Nochmals Danke für Eure Bemühungen.

[Ozelot]

Ich habe den selben Speedbutton nun auf ein Unterformular gehievt und er funktioniert einwandfrei, nicht so wie auf dem Hauptformular. Gruss

[Popov]

Also bei mir funktioniert der SpeedButton (auch einzeln) auf Hauptformular, Panelen usw. ohne Problem. Weder muss dazu AllowAllUp True sein, noch mit einem Glyph gefüllt sein. Einzig GroupIndex muss ungleich 0 sein.

Kleiner Tipp - mit ALT+F12 kommst du dir alles in Textform ansehen.