#1 24. April 2008 Brauche hilfe Moin kann mir jemand mal sagen wie ich das hier : http://y.kefche.com/games/kizxhi.swf mit delphi machen kann ? Mfg + Multi-Zitat Zitieren
#2 24. April 2008 Zuletzt von einem Moderator bearbeitet: 14. April 2017 AW: Brauche hilfe Du machst 3 Buttons mit "No" drauf. Alle 3 haben verschiedene Posis. Einer ist sichtbar, die anderen alle unsichtbar. Dafür machste in der "OnCreate" Prozedur Button1.Hide und Button2.Hide! So Dann machste bei dem sichtbaren Button eine OnMouseMove Prozedur: Code: procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Button1.Show; Button3.Hide; end; Dann versteckt der den sichtbaren und macht einen unsichtbaren wieder sichtbar. Und das machste eben noch für die 2 anderen Buttons. Ganz easy, oder greez //edit: Habs dir schnell gemacht No File | xup.in (exe + code) + Multi-Zitat Zitieren
#3 24. April 2008 Zuletzt von einem Moderator bearbeitet: 14. April 2017 AW: Brauche hilfe hab dir auch mal ein beispiel gemacht. der code ist zwar nicht perfekt aber denke das er für deine zwecke allemale reicht. hab das ganze so gemacht das er den button an irgendeiner stelle verschiebt. ist zwar theoretisch möglich das die maus noch an der stelle ist aber sehr unwahrscheinlich. kannst du aber auch ganz einfach machen erstelle 2 variablen als integer und speichere dort die aktuelle button position und nach dem verschieben läßt du prüfen wie weit der button sich verschoben hat. ich denke das ist nen ganz nettes beispiel. find ich persönlich besser als wenn man 2 buttons nur macht die verschiedent auftauchen und versteckt werden source: No File | xup.in exe: No File | xup.in + Multi-Zitat Zitieren
#4 24. April 2008 AW: Brauche hilfe jo danke bs sind raus aber ich hab ganz vergessen zu schreiben das ich erst noch über mSuM programmiere in der schule halt... ist das über mSuM auch machber? ich mein da gibts bei den buttons dieses mouseover net... + Multi-Zitat Zitieren
#5 24. April 2008 AW: Brauche hilfe kenn die sprache nicht aber denke schon. einfach die maus position ermitteln die fenster position und button position und dann den button verschieben. oder halt mit den 2 buttons. was ist msum für eine sprache??? + Multi-Zitat Zitieren
#6 24. April 2008 AW: Brauche hilfe die MSum Unit, ist nicht standardt mäßig in Delphi integriert. Sie wurde von Fachlehrer entwickelt und damit wird in den schulen am anfang gearbeitet mSuM = stifte und Mäuse + Multi-Zitat Zitieren
#7 24. April 2008 AW: Brauche hilfe wir haben damit letztes jahr gearbeitet. Ui... da fragste jetzt was^^ Ich würde sagen, dass es das gleiche Prinzip ist aber der Stift die Buttons halt immer neu zeichnet oder radiert, wenn die Maus in den Koordinaten von dem Button ist. Das kann man ja testen, da jeder Button ja einen Ursprung hat (immer linke Obere Ecke) und Länge und Höhe. Also folgt: (mal eine Art Pseudocode) IF (MausX >= ButtonX) AND (MausX <= ButtonX + ButtonLänge) AND (MausY >= ButtonY) AND (MausY <= ButtonY + ButtonHöhe) THEN result := TRUE; ELSE result := FALSE; Also wird TRUE zurückgegeben, wenn die Maus auf dem Button liegt. Andernfalls wird FALSE zurückgegen. Also wenn die fkt TRUE ist, muss der Button radiert werden und ein anderer neu gezeichnet. Hoffe das war verständlich =/ greez + Multi-Zitat Zitieren
#8 25. April 2008 AW: Brauche hilfe wenn du alles wichtige für die unit hier rein stellst seh ich mir das gerne mal an. + Multi-Zitat Zitieren