Knap der flytter sig, når curseren bevæges over.

Prøv det her:

Procedure der flytter knappen op og ned:

Procedure TButton1.OnMouseOver(Sender: TObject);
begin
  if (Button1.Top <> 20) or (Button1.top <> 80 then
  Button1.Top := 20;
  Case Button1.Top do
  20: Button1.Top := 80;
  80: Button1.Top := 20;
  end;
end;

Det flytter knappen, du kan så ændre \'top\' til left\' hvis du vil.

Kaspikov

Er det 100% tilfældigt hvor knappen bliver sendt hen? Det der nemlig er ideen i dette program, er at man aldrig skal klikke på den - hvergang man kommer hen til knappen skal den igen forsvinde.

Prøv at indsætte dette i Button1.onMouseMove

Button1.Left:=random(form1.clientwidth);
Button1.Top:=random(form1.clientheight);

Jeg kunne i hvert fald ikke klikke på den

MVH abpdk

Den ER 100% tilfældig...

Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height);

:)

Ok ok...men det er en detalje...

:-)

MVH abpdk

hathor >> når nu du er igang med sådan noget sjov så husk nu lige at sætte tapstop til false :-)

kaspikov >> er det ikke denne procedure han skal bruge:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

/ZIRON

Jeg er nybengynder inden for delphi, så er der ikke lige nogen der gider at skrive det komplette stykke kode der skal bruges for at få sådan en knap - uden rettelser og uden tilføjelser. Så ville jeg bliver _MEGET_ glad!!!

sådan:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.TabStop := false;
end;

end.

/ZIRON

Knappen flytter sig altså ikke. Jeg slettede alt i formen og indsatte denne tekst - der sker ikke rigtigt noget. Jeg kan køre programmet den melder ikke fejl - men knappen bliver hvor den er!

prøv med:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Procedure TButton1.OnMouseOver(Sender: TObject);

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Procedure TButton1.OnMouseOver(Sender: TObject);

begin
Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.TabStop := false;
end;

end.

jeg ved ikke hvordan det er i 3.0 jeg bruger 5.0...

men prøv lige..

/ZIRON

Der er en fejl ved første sted der står type, nærmere betegnet ved Procedure mellen OnMouseOver og (Sender: TObject);

fejlen er: Expected \'=\' but \'(\' found...

AAAARRRGHHHHH...Jeg ved ikke en skid om Delhii....

HJÆÆÆÆLP



   

skift denne linie ud
Procedure TButton1.OnMouseOver(Sender: TObject);

med:
Procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

og
Procedure TButton1.OnMouseOver(Sender: TObject);
begin
Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height);
end;

med:
Procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height);
end;

forbind derefter Button1\'s OnMouseMove event med denne procedure, ved at klikke på Button1, og derefter klikke på Events i object inspectoren, og klik så på OnMouseMove

jeg tror jeg ved hvad fejlen er...

du har din form og så clicker du på din knap og så i din objekt in... (den menu ting til højre) kliker du på events og der finder du OnMouseMove og der dobbelkliker du, så kommer du ud hvor du skal skrive kode og der indsætter du:

Button1.Left:=random(form1.clientwidth - Button1.Width);
Button1.Top:=random(form1.clientheight - Button1.Height

derefter går du ud hvor man desinger sin form og kliker på formen og går ud til højre igen og i events og så ved OnFormCreate dobbelkliker og indsætter så:

button1.TabStop := false;

og så skulle det virke... det er vis du har oprettet et helt nyt projekt og kun indsat en knap og du har ikke ændret nogen navne..

/ZIRON

mit er bedst nico22 :-)

/ZIRON

Ziron>>du kan da ikke skrive sådan her i klassespecifikationen:
Procedure TButton1.OnMouseOver(Sender: TObject);

desuden har en TButton ikke en mouseover event

nej men det var det som kaspikov forslg og jeg vidste ikke om det hed sådan i 3.0 :-)

/ZIRON

Det har ikke noget med versionen at gøre, og klasseerklæringen er stadig forkert

okay så ved jeg det... og når ja det havde jeg ikke lige lagt mærke til, HOV håber det er okay :-)

/ZIRON

okay med mig :)

Jeg ved ikke rigtig...Men Zirons er den første jeg har fået til at virke, så jeg tildeler ham pointene...Tusind tusind tak for hjælpen...:-)