menü einschieben

[Orpi]

hallo

ich bin gerade dabei aus lauter nostalgie mich an einem breakout-clon zu versuchen. nun hänge ich aber leider an einer wirklich banalen stelle fest...am layout der oberfläche. ich habe es mir in den kopf gesetzt das menü zu animieren. das funktioniert auch annähernd...sieht jedoch nich so aus wie ich das haben möchte.

gedacht hatte ich mit das so:

ich habe ein hauptformular in das ich 2 frames einfüge. ein frame stellt die spielfläche dar und einer die menüleiste, welche dann verschwinden soll. mit einem timer möchte ich nun einfach den menüframe unter den spielfeldframe schieben. dait das aber auh dementsprechend gut aussieht muss das hauptformular mit verkleinert werden. und genau hier haperts..das sieht einfach nich so aus wie ich das möchte

hier mal die kernprocedure:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if frame1.left < frame2.left then
 begin
  frame1.left:=frame1.left + 2;
  form1.left:=form1.Left + 2;
  form1.width:=form1.width - 4;
 end



end;

und das testprogramm zum ansehen

danke

[ichbins]

herzlich willkommen in der Delphi-Praxis!

Zitat:

sieht jedoch nich so aus wie ich das haben möchte

wie möchtest du es denn haben? ich seh nur ein paar verschieden helle Flecken, die sich übereinanderschieben, und zwei verschwindende Buttons...

ich glaube du solltest dich mal in die DelphiX-Materie hineinarbeiten (DelphiX tutorial) und das Spiel damit entwickeln.

[Orpi]

nunja...das soll auch nur ein testprogramm für mich sein. die beiden flecken sollen die verschiedenen frames sein. nun soll durch das verschieben der eindruck enstehen das eine menüleiste(hier der shwarze fleck) sich sich einfach hinter das formular schiebt.
wie eben so ein schubmenü aussieht...

[ichbins]

Achso...

probier mal ob es klappt wenn du das "obere" Frame um 2 Pixel pro Sekunde nach links verschiebst.

[Orpi]

hat leider immernoch nicht die erhoffte wirkung...ist aber schon sher nahe dran
(siehe anhang) --> button1 klciekn