jak uzyskać "onClick" na "visible:=false&quot

0

witam

mam taki problem: chcę mieć możliwość kliknięcia buttona ale niewidocznego,
mam otwartego jpega, na nim button w określonym miejscu, chciałbym móc uzyskać klikna nim :>

jak.....?

pomożemy?

0

Ja bym to zrobił tak jak pokazałem poniżej. Z tego co testowałem działa. Na formatce umieszczac Image, a
do tego Label, który pokaże Tobie pozycję myszki na formatce oraz Button. Do Image ładujesz obrazek, a
na Image umieszczasz Button. Resztę oprogramowujesz tak jak pokazałem. Chociaż może da się inaczej :/

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MoznaKlikac := False;
  Button1.Visible := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Kliknąłeś mnie');
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CzyX, CzyY : boolean;
begin
  Label1.Caption := Format('X: %d Y: %d', [X, Y]);
  CzyX := (X >= Button1.Left) and (X <= Button1.Left + Button1.Width);
  CzyY := (Y >= Button1.Top) and (Y <= Button1.Top + Button1.Height);

  if CzyX and CzyY then
    begin
    MoznaKlikac := True;;
    Caption := 'tak';
    end
    else
    begin
    MoznaKlikac := False;;
    Caption := 'nie';
    end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  if MoznaKlikac then
    begin
    Button1.Click;
    end;
end;

No to na Twoje pytanie "pomożemy? " - odpowiadam: pomogłem. Teraz odpisz czy tak może być jak piszę.

1 użytkowników online, w tym zalogowanych: 0, gości: 1