Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sender color
#1
Merhaba,

Listviewde seçili satırın text color değişikliği yapmak istiyorum, aynı zamanda db'de update ile güncellenecek.
Her MenuItem Click olayında update yaptırmaktansa genel bir kod kullanarak çözmek istiyorum.
function kullanarak sorunu çözebilirdim fakat (Sender: TObject); ile nasıl çözebilirim?


procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  PSelectColorUpdate(Sender As TText) := 'Siyah';
  PSelectColorUpdate(Sender, 'Siyah');
end;


procedure TForm1.PSelectColorUpdate(Sender: TObject);
begin
  FDQ := TFDQuery.Create(Nil);
  ListViewP.BeginUpdate;
  try
    showmessage(Sender);

    // TListView(Sender).Items[TListView(Sender).Selected.Index].Data['Color'] := 'Siyah';
    // FDQ.Connection := FDConnection;
    // FDQ.Active := False;
    // FDQ.Close;
    // FDQ.SQL.Clear;
       

    // FDQ.ExecSQL;
  finally
    ListViewP.EndUpdate;
    FDQ.Free;
  end;
end;
Cevapla
#2
Yanlış anlamadıysam:
procedure TForm1.PSelectColorUpdate(Sender: TListView; Renk: String);
begin
 Sender.BeginUpdate;
 try
   Sender.Items[Sender.Selected.Index].Data['Color'] := Renk;
 finally
   Sender.EndUpdate;
 end;
end;
Böylece 
PSelectColorUpdate(TListView(Sender), 'Siyah');
şeklinde kullanabilirsiniz.
There's no place like 127.0.0.1
WWW
Cevapla
#3
Teşekkür ederim.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Color To String İşlemi ? Mr.Developer 13 969 28-08-2019, Saat: 12:05
Son Yorum: Mr.Developer
  Color özelliği CesuR 9 815 03-01-2019, Saat: 15:47
Son Yorum: mrmarman
  Dinamik color ahmetb 0 372 30-09-2018, Saat: 13:21
Son Yorum: ahmetb
  Color Orhanlar 2 634 08-09-2018, Saat: 12:44
Son Yorum: Orhanlar
  Edit ve buton color hido 3 1.245 28-05-2017, Saat: 16:25
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi