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?
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?
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ę.