Jak sprawdzic, ktory obiekt został klikniety?

0

Przypuscmy, ze mam grupe obrazkow na formie. Chcialbym aby po kliknieciu na dowolny obrazek, program wyswietlil mi, ktory obrazek kliknalem.
Jak to zrobic?

--take care,

Wodzu

0

Albo sprawdzic wspolrzedne myszy, albo ustawic zmienna globalna i w procedurze onclick kazdego obrazka nadawac jej inna wartosc.--Pozdrawiam {hello}
Tomasz K.

0

Musisz w zdarzeniu OnClick każdego obrazka wpisać cos takiego:

ShowMessage('Kliknąłeś obrazek nr 1');
//tylko że w każdy obrazku musi być inny nr

Pozdrawiam @ll;--_RFL_

0

Ja bym dla każdego komponentu walną jakiś (w sekcji public) kod w stylu:
Button1_klikniety : boolean;
Button2_klikniety : boolean;
procedure sprawdz;

a potem dla odpowiedniej grupy w onclick dal:

procedure button1click(Sender : TObject);
begin
Button1_klikniety := true;
end;

procedure sprawdz; //dziala dla wszystkich komponentów: "bo nie chce mi się robić tego"
begin
if Button1_klikniety = true then
begin
ShowMessage('Klikniety zostal button1');
end; /itp. z tym kodem :)
end;

Kod troche kapiasty ale jest.

0

Bujdy! Zrób prockę na zasadzie

On.Click........

if Sender is TButton then
coś tam--Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

0

koledzy...tylko chodzi o to ze ja te obrazki tworze w runtime...--take care,

Wodzu

0

zrob tak:
najpierw tworzymy komponenty TImage:

var
Image, Image2 : TImage;
begin
Image := TImage.Create(Self);
with Image do
begin
Name := 'Image' ; nazwa dzieki ktorej procedura Klik bedzie rozpoznawala
ktory Image zostal klikniety
Parent := Self;
Left := 10;
Top := 10;
Picture.LoadFromFile('c:\plik.bmp');
OnClick := Klik;
end;

Image2 := TImage.Create(Self);
with Image2 do
begin
Name := 'Image2'; nazwa dzieki ktorej procedura Klik bedzie rozpoznawala
ktory Image zostal klikniety
Parent := Self;
Left := 150;
Top := 150;
Picture.LoadFromFile('c:\plik.bmp');
OnClick := Klik;
end;

end;

a w procedurze Klik np. cos takiego:

ShowMessage('Klikles ' +(Sender as TImage).Name)
//wyswietli komunikat ktory Image zostal klikniety

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Dziekuje kolegom za poswiecony czas i trud w wyjasnieniu mi tej kwestii:)

--take care,

Wodzu

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