menü einschieben

chrisx · Beiträge: 81 Dabei seit: 30.10.2004

hi, ich habe ein programm geschrieben, dass maximiert gestartet wird (es füllt also den ganzen bildschirm aus.
das soll auch so bleiben, aber dennoch möchte ich ein mainmenü haben.
das mainmenü soll erscheinen, wenn ich mit der maus an den oberen bildschirmrand fahre.
wenn ich mit der maus wieder weggehe , soll das mainmenü wieder verschwinden.

kann mir jemand helfen?
wäre sehr dankbar.

ps. ich hoffe ich habe meie frage verständlich geschrieben ;-)

AXMD · Verfasst: Sa 04.12.04 20:51

Pack das Menü in eine Toolbar und nimm das OnMouseMove-Event der Form her (Mauskoordinaten abfragen). Ist zwar unschön, aber es müsste funktionieren

AXMD

_________________
Die Nummer, die Sie gewählt haben, ist imaginär. Bitte drehen Sie Ihr Telefon um 90° und versuchen Sie es erneut.

chrisx · (Threadstarter) Beiträge: 81 Dabei seit: 30.10.2004

geht das nicht auch einfacher?
ich bin nämlich delphi anfänger.

aber trotzdem danke für deinen tipp

herzi · Verfasst: Sa 04.12.04 21:33

Sieht aber nicht gut aus...

Delphi-Quelltext

markieren

1:

2:

3:

4:

5:

6:

7:

8:

9:

10:

11:

12:

13:

14:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var

show:boolean;

i:integer;

begin

if y<10 then

show:=true

else

show:=false;

for i:=0 to Mainmenu1.Items.Count-1 do

Mainmenu1.Items[i].Visible:=show;

end;

chrisx · (Threadstarter) Beiträge: 81 Dabei seit: 30.10.2004

vielen dank.
so schlimm sieht es nicht aus (ich habe die toolbar so klein ,wie möglich gemacht).
und für meine anforderungen reicht es völlig.
(fast) genau so habe ich mir das vorgestellt.

ich habe den code nur etwas verändert:

vorher:

Quelltext

markieren

1:

2:

3:

begin

if y<10 then

show:=true

nacher:

Quelltext

markieren

1:

2:

3:

begin

if y<0.01 then

show:=true

danke.
hiermit ist mein problem gelöst. ;-)

AXMD · Verfasst: Sa 04.12.04 21:55

Deine Toolbar ist nur 0,01 Pixel groß :gruebel:

AXMD

_________________
Die Nummer, die Sie gewählt haben, ist imaginär. Bitte drehen Sie Ihr Telefon um 90° und versuchen Sie es erneut.

StefanH · Verfasst: Sa 04.12.04 22:03

ist y nicht integer? :shock:

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)