Panel mit nicht sichtbarem Klickbereich

[himitsu]

Irgendwo hinklicken und so tun, als wäre da ein Button,
oder irgendwo hinklicken und ein Button wird sichtbar, welcher sich danach anklicken lässt?

Delphi-Quellcode:

// das Erste (wurde in Bereich geklickt)
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Rect(8, 8, 50, 50).Contains(Point(X, Y)) then
    machwas;
end;

// oder das Zweite (wurde da hingecklickt, wo der Knopf mit Visible=False wäre)
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button1.BoundsRect.Contains(Point(X, Y)) then
    Button1.Visible := True;
end;

[edit]
Ja, oder eben mit der Funktion PtInRect, anstatt dem Record-Helper,
oder selbstgemacht if (X > 8) and (X < 50) and (Y > 8) and (Y < 50) then .