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.