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
.