Undeclared BitBtn1 ? Wenn das Button auf Panel liegt

[Delphiturbo]

Hallo,

wenn das Button on Form liegt, dann kommt keine Fehler Meldung
Und wenn ich das Button auf den Panel lege dann erscheint Error : Undeclaed BitBtn1 !!!

Delphi-Quellcode:

if WindowFromPoint(ptWork) = BitBtn2.Handle then

// auch so nicht :
if WindowFromPoint(ptWork) = Form1.BitBtn2.Handle then

[mkinzler]

Wie wäre es mit Panel.BitBtn2 ?

[DeddyH]

Heißt ja auch BitBtn2

[Delphiturbo]

Zitat:

Zitat von mkinzler

Wie wäre es mit Panel.BitBtn2 ?

habe ich schon ausprobiert

Das BitBtn2 liegt auf Panel1
Panel1 liegt auf Panel2

dann habe ich so versucht:

Delphi-Quellcode:

if WindowFromPoint(ptWork) = Form1.Panel2.Panel1.BitBtn2.Handle then
// und
if WindowFromPoint(ptWork) = Panel2.Panel1.BitBtn2.Handle then
// und
if WindowFromPoint(ptWork) = BitBtn2.Handle then

[grenzgaenger]

poste doch mal etwas mehr code... http://dp.matthias-hielscher.de/dp_glaskugel2.gif

[grenzgaenger]

Zitat:

Zitat von Delphiturbo

Hallo,

wenn das Button on Form liegt, dann kommt keine Fehler Meldung
Und wenn ich das Button auf den Panel lege dann erscheint Error : Undeclaed BitBtn1 !!!

Delphi-Quellcode:

if WindowFromPoint(ptWork) = BitBtn2.Handle then

// auch so nicht :
if WindowFromPoint(ptWork) = Form1.BitBtn2.Handle then

[DeddyH]

[OT] Ist der Smiley schon on? [/OT]

[grenzgaenger]

Zitat:

Zitat von DeddyH

[OT] Ist der Smiley schon on? [/OT]

nö, aber 'ne kristallkugel ist dennoch nötig ... sein codeausschnitt ist irrelevant... für die fehlermeldung...

[Delphiturbo]

Liegt es nicht daran, dass ich OnMouseEnter für 2 Sachen verwende
Also ich muss vielleicht 2 mal deklarieren

Ich verwende den Code ein mal wenn der Cursor auf BitBtn
und ein mal wenn der Cursor auf Panel3 kommt

Delphi-Quellcode:

  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

Vielleicht

Delphi-Quellcode:

// 1 mal
procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn2.Handle then
  begin
    BitBtn2.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn2.Glyph);
  end;
end;

// 2 mal
procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = Panel3.Handle then
    showMessage('xxxxxx');
  end;

ich habe den Code in ein neu es Projekt getestet und funktioniert auch wenn das BitBtn auf ein Panel liegt!

[DeddyH]

Du verwendest den Code, wenn der Cursor auf Dein Formular gezogen wird.

[Delphiturbo]

Zitat:

Zitat von DeddyH

Du verwendest den Code, wenn der Cursor auf Dein Formular gezogen wird.

wieso ?

[mkinzler]

Du hast die Grundlagen immer noch nicht begriffen.

[DeddyH]

Zitat:

Zitat von mkinzler

Du hast die Grundlagen immer noch nicht begriffen.

Offensichtlich

[Der.Kaktus]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von mkinzler

Du hast die Grundlagen immer noch nicht begriffen.

Offensichtlich

:crystall: *fg*

[DeddyH]

http://dp.matthias-hielscher.de/dp_glaskugel2.gif
*Psst* Matze, hab aufgepasst ;)

[Sharky]

Ach Leute,

ich hoffe nicht ihr denkt das wir in einem Thread von Delphiturbo jetzt jedes OT-Posting durch gehen lassen.

Also haltet mal etwas an euch :!:

[Delphiturbo]

Na gut, nur versehen
so ok;

Delphi-Quellcode:

    
procedure BitBtn2CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure BitBtn2CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
procedure Panel3CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; // error Duplicate !

Ich verwende aber den Event OnMouseEnter für 2 Objekte: auf BitBtn2 und auf Panel3
deswegen habe ich 2 mal deklariert. oder? :cry:

[DeddyH]

Zum letzten Mal: Du definierst eine Behandlungsroutine für eine Nachricht des Formulars, das geht natürlich nur einmal. Wenn Dir das im Moment zu hoch ist, dann mach Dich mit den Grundlagen vertraut oder lass es ganz bleiben.

[Der.Kaktus]

Zitat:

Zitat von DeddyH

Zum letzten Mal: Du definierst eine Behandlungsroutine für eine Nachricht des Formulars, das geht natürlich nur einmal. Wenn Dir das im Moment zu hoch ist, dann mach Dich mit den Grundlagen vertraut oder lass es ganz bleiben.

meinste nich auch, dass es langsam reicht? das iss ja so belastend..irgendwie lernt er es nie..weia

P.S.:sag nix MuhKuh..iss so