Transparentes Formular Frage

[Grolle]

Hallo,

ich habe ein Formular, welches transparent ist. Darauf liegt ein Image, welches im MouseDown folgendes tut:

Delphi-Quellcode:

  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);

Jetzt liegen auf dem Image 2 Buttons, die dieses Verhalten nicht erben sollen. Wie mach ich das?

Viele Grüße ...

[Bummi]

Ich habe verstanden daß die Buttons auf dem Image gemalt sind. Exemplarisch:

Delphi-Quellcode:

Function ButtonClicked(x,y:Integer):Integer;
begin
  If (x>10) and (x<30) and (y>10) and (y<20) then Result := 1
  else If (x>30) and (x<40) and (y>10) and (y<20) then Result := 2
  else Result := 0;

end;


ButtonClicked := GetButtonClicked(x,y);
if ButtonClicked=0 then
  begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0); 
  end;

[Sir Rufo]

Dafür gibt es aber wesentlich schöner PtInRect

Wenn es sich um TButtons handelt, dann erben die das aber nicht

[Aphton]

Edit: Sry, falscher Thread (damn Tabs)

[Grolle]

Hi,

es sind TButtons. Komischerweise verhalten diese sich unter XP anders als unter Win7?! (Unter Win 7 gehts)

Viele Grüße