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
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
Albo sprawdzic wspolrzedne myszy, albo ustawic zmienna globalna i w procedurze onclick kazdego obrazka nadawac jej inna wartosc.--Pozdrawiam {hello}
Tomasz K.
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
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.
Bujdy! Zrób prockę na zasadzie
On.Click........
if Sender is TButton then
coś tam--Pozdrawiam!
Delphi 5
[email protected]
GG: 3615957
koledzy...tylko chodzi o to ze ja te obrazki tworze w runtime...--take care,
Wodzu
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] ]=-
Dziekuje kolegom za poswiecony czas i trud w wyjasnieniu mi tej kwestii:)
--take care,
Wodzu
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.