Transparentes Formular Frage

[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;