Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Resim click durumu
#1
Merhaba;


Listviewe eklemiş olduğum resimimin click olayını nasıl gerçekleştire bilirim?

Not: Her resimde ayrı url adresi olacak tıklanan resimin  (ShellExecute(0, 'Open', PChar(Link), Nil, Nil, 0)) ile o adrese gidecek.
Hayat bazen güzel olabiliyor.
Cevapla
#2
Merhaba,
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol fonksiyonunun FMX platformunda çalışacağına emin misiniz? Smile
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
(19-01-2018, Saat: 12:24)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba;


Listviewe eklemiş olduğum resimimin click olayını nasıl gerçekleştire bilirim?

Not: Her resimde ayrı url adresi olacak tıklanan resimin  (ShellExecute(0, 'Open', PChar(Link), Nil, Nil, 0)) ile o adrese gidecek.

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Burada bu konuyla ilgili bir yazi var.
Cevapla
#4
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol arkadaşımızın vermiş olduğu linkte paylaşılan (son yorum) tüm platformlar için URL açma kodları Win ve Android platformlarında çalıştı
(OS X'im tadilatta olduğundan henüz test edemedim. High Sierra sürümüne yükseltiyorum.)
Kitabımızda geçen ListView konusunun 2. örneği ( Smile );

2018-01-19_12-32-17.png

ListView'in, OnItemClickEx olayındaki ItemObject işinizi görecektir.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
Win tarafında ShellExecute sorun yok.


Resim Listview de OnItemClickEx ve ItemObject nereden ulaşabilirim?
Hayat bazen güzel olabiliyor.
Cevapla
#6
(19-01-2018, Saat: 13:24)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlWin tarafında ShellExecute sorun yok.


Resim Listview de OnItemClickEx ve ItemObject nereden ulaşabilirim?

FMX uygulama olduğundan Win platformunda çalışan kod kısımlarını,
{$IF Defined(MSWINDOWS)}
  //Win platfrom kodları
{$ENDIF}
direktifleri arasına almanız gerekiyor, aksi durumda diğer platformlarda derlemeye çalıştığınızda; tanımlanamayan fonksiyon uyarısı alırsınız.
1- ItemObject'e ulaşmak için ListView'i seçin Object Inspector penceresinde Events sekmesine tıklayın.
2- OnItemClickEx olayını bulun ve bu metodu çift tıklayıp oluşmasını sağlayın. 
3- Metod parametrelerinde ItemObject görünecektir.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#7
Teşekkür ederim.

procedure TForm2.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
{$IF Defined(MSWINDOWS)}
  if ListView.Items.Count > 0 then
  begin
    if ItemObject.Name = 'Konum' then
    begin
      ShowMessage('Konum');
    end;
    if ItemObject.Name = 'Resim' then
    begin
      ShowMessage('Resim');
    end
  end;
{$ENDIF}
end;
Hayat bazen güzel olabiliyor.
Cevapla
#8
(19-01-2018, Saat: 13:05)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLinkleri Görebilmeniz İçin Giriş yap veya Üye Ol arkadaşımızın vermiş olduğu linkte paylaşılan (son yorum) tüm platformlar için URL açma kodları Win ve Android platformlarında çalıştı
(OS X'im tadilatta olduğundan henüz test edemedim. High Sierra sürümüne yükseltiyorum.)

OS X 10.13.2 High Sierra ve iOS hedef platformlarında da çalışıyor.

(20-01-2018, Saat: 02:23)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlTeşekkür ederim.

procedure TForm2.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
{$IF Defined(MSWINDOWS)}
  if ListView.Items.Count > 0 then
  begin
    if ItemObject.Name = 'Konum' then
    begin
      ShowMessage('Konum');
    end;
    if ItemObject.Name = 'Resim' then
    begin
      ShowMessage('Resim');
    end
  end;
{$ENDIF}
end;

Yukarıda yazmış olduğunuz kodlar tüm hedef platfromlar tarafından destekleniyor.
Dolayısıyla bu kod satırlarını  {$IF Defined(MSWINDOWS)} - {$ENDIF} direktifleri arasına almanıza gerek yok. Bunu yalnızca Windows hedef platfromuna özgü API veya kodlarda kullanmalısınız.
Mevcut kullanımda, bu kodlar yalnızca Windows platformunda çalışacak, diğer platformlarda ItemClickEx tepki vermeyecektir.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Resim Silme Paranoyaq 10 276 24-01-2018, Saat: 12:37
Son Yorum: Fesih ARSLAN
  WebBrowser - Choose Buton - Resim Upload nehirnnn 0 69 21-01-2018, Saat: 15:23
Son Yorum: nehirnnn
  Resim Listeleme Paranoyaq 13 346 02-01-2018, Saat: 21:25
Son Yorum: Paranoyaq
  Site Butonuna Click Paranoyaq 1 110 17-12-2017, Saat: 18:57
Son Yorum: hyperxman
  Uygulama içine gömülü resim veri tabanı vb başkalarının erişimi hk. pro_imaj 4 196 08-09-2017, Saat: 11:18
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi