PfannkuPlus - Mein erstes Programm

[nezumi]

Hallo Toredo,

das Wackeln hab ich mit einem Timer und einer Scrollbar gemacht (Timer sehr kurze Intervalle, z.B. 8 ms, Scrollbar Visible auf false setzen):

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Scrollbar2.Position := Scrollbar2.Position +1;
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin

Case Scrollbar2.Position of
1:
begin
Form1.Top := Form1.Top +1;       
Form1.Left := Form1.Left -1;     
end;
2:
begin
Form1.Top := Form1.Top -1;       
Form1.Left := Form1.Left -1;     
end;
3:
begin
Form1.Top := Form1.Top -1;       
Form1.Left := Form1.Left +2;     
end;
4:
begin
Form1.Top := Form1.Top +1;       
Form1.Left := Form1.Left +2;     
end;
 //usw., ca 30 mal
end;

Für das Klingeln hab ich mir einfach einen Klingelton im .wav Format gesucht und in die .exe eingebunden. Wenn Du nicht weißt wie das geht, ich hab mir hierzu mal eine kleine Anleitung geschrieben, die ich anhänge.

Gruß,
nezumi