mouse

[LEE1]

hai leute hab mal wieder ne frage also es soll ne procedur auf gerufen werden wenn meine mouse das formular verlässt. wie kann ich das machen ?
hab schon en paar sachen gefunden doch die waren nid das richtige

danke

[Die Muhkuh]

Das Formular bietet Dir eine Methode "OnMouseLeave", das ist dafür da.

[LEE1]

danke
und wie kann ich das benutzen mit if OnMouseLeave???...... then ?

[alleinherrscher]

OnMouseLeave ist ein Event, was automatisch eine Prozedur aufruft, die du schreiben kannst. Guck mal im Objektinspektor unter "Ereignissen" nach. Da findest du "OnMouseLeave" darauf doppelklick und schon erzeugt dir Delphi eine Prozedur, wo du deinen Code reinschreiben kannst.

//edit: Wobei.... bei mir gibts dieses Ereignis nicht ...nur OnMouseActivate,OnMouseDown,OnMouseMove,OnMouseUp, OnMouseWheel,OnMouseWheelUP,OnMouseWheelDown

[Matze]

Gehe in den Objektinspektor und dort zum Reiter "Ereignisse". Da suchst du "OnMouseLeave" aus und klickst doppelt drauf.

Vielleicht wäre ein Grundlagentutorial für dich nicht schlecht.

[LEE1]

ER nidd das ihr jetz hier denkt dass ich voll der anfänger bin ich schreib schon 4 jahr programme mit delphi ich fin das hier einfach nidd

delphi 7 personal benutz ich

[Matze]

Vielleicht gibt's das Ereignis in Delphi 7 noch nicht.

Btw: Gib doch bitte im Profil deine Delphi-Version an.

Edit: Sollte es so sein, müsstest du die Nachrichten selbst verarbeiten. CM_MOUSELEAVE oder sowas in der Richtung.

[alleinherrscher]

Guckst du hier:

http://www.delphipraxis.net/internal...rackmouseevent

insbesondere das hier:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private-Deklarationen }
  protected
    procedure WMMouseLeave(var Message: TWMMouse); message WM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMMouseLeave(var Message: TWMMouse);
begin
  //Dein Code hier hin einfügen!!!
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  EventTrack: TTrackMouseEvent;
begin
  EventTrack.dwFlags := TME_LEAVE;
  EventTrack.hwndTrack := Handle;
  EventTrack.cbSize := SizeOf(EventTrack);
  TrackMouseEvent(EventTrack);
end;

end.

[LEE1]

hey danke es klappt dankeeeeeeeeeeeeeeee

[LEE1]

hab trotzdem noch ne frage hab es in mein eigentliches projekt eingefügt doch nun kommt dies hier [Fehler] form11.pas(24): Ungenügende Forward- oder External-Deklaration: 'TForm11.WMMouseLeave'