auf der suche nach einem befehl

[Daniel B]

Da wo Du den Fahrstuhl anhälst und weiter fahren willst!!

Das können wir doch nicht wissen, zeig dochmal was Du bis jetzt hast, jedenfalls zwischen der Zeile wo Du den Fahrstuhl anhälst, und dann der Zeile wo Du den weiterfahren lässt, muss dieses Delay hin, und die ganze Prozedur von Luckie natürlich auch nicht irgendwo rein zwischen Deinen normalen Prozeduren.

[juhu]

Code:

unit UFahrstuhl;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    button3: TButton;
    stuhl: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin

stuhl.Top:=448;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
stuhl.Top:=560;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
stuhl.Top:=336;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

stuhl.Top:=224;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  stuhl.Top:=112;
end;

end.

der fahrstuhl springt zwar. das macht aber erstmal nichts.

[nailor]

dann pack es immer vor das

stuhl.Top:=XXX; Dann wartet er damit solange, wie bei delay(YYY) angegeben, und lässt den Fahrstuhl dann springen...

[Daniel B]

Hmm, also das macht so überhaupt keinen Sinn, da DU selbst die Bremse schon bist, weil Du immer einen Button drücken musst und das muss schonmal weg, Du musst da 1-2 Timer mit reinbringen, und dann nur noch ein Rauf- und Runter-Button einbauen, nicht 30 Buttons.

Wiedem auch sei, zwischen den Prozeduren der Buttons, schreibst Du die Prozedur von Luckie rein, und da wo der Aufzug warten soll, vor der Zeile schriebst Du das Delay(1000); rein.

[juhu]

dann sagt er mir

Code:

Undefinierter bezeichner:'delay'

[Matze]

Zitat von Basti:

Hi,

es gibt eine procedure Delay, die du aber erst definineren musst:
(erstell einfach eine neue Unit und kopier das hier rein)

Delphi-Quellcode:

unit DelayUnit; 

interface 

uses Windows, Forms; 

procedure Delay(MSecs: Integer); 

implementation 

procedure Delay(MSecs: Integer); 
var 
FirstTickCount : LongInt; 
begin 
FirstTickCount:=GetTickCount; 
repeat 
Application.ProcessMessages; {allowing access to other controls, etc.} 
//Application.HandleMessage; 
until ((GetTickCount-FirstTickCount) >= LongInt(MSecs)); 
end; 

end.

Zitat von Basti:

Danach kannst du in deinem Programm den Befehl "Delay" benutzten (natürlich musst du die Unit "DelayUnit" aufrufen.

Während diesem Befehl, der genauso wie Sleep funktioniert, nur das er das Programm nicht anhält, kannst du das Programm nur nicht beenden. Das ist der einzige Nachteil.
Viel Spaß damit.

[Dannyboy]

Dann nimm entweder sleep oder schnappe Dir das Delay von unserem Luckie
und tippe die Procedure ein, damit Delphi das kennt.
Dann funzt das auch.

[juhu]

Danke für eure hilfe!
funktioniert jetz wunderbar!!!!