var x:integer;
begin
form1.IBTable1.Active :=True;
for x:=0 to form1.IBTable1.RecordCount -1 do
begin
form1.ListBox1.Items.Add(form1.IBTable1Alan_Adı.Text);
form1.IBTable1.Next;
end;
end;
listbox Ondblclik olayınada yapmak istediğini yazabilirsin
Örn:
application.MessageBox(Pchar(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]),’BILGI’,0+32+0);
begin
form1.IBTable1.Active :=True;
for x:=0 to form1.IBTable1.RecordCount -1 do
begin
form1.ListBox1.Items.Add(form1.IBTable1Alan_Adı.Text);
form1.IBTable1.Next;
end;
end;
listbox Ondblclik olayınada yapmak istediğini yazabilirsin
Örn:
application.MessageBox(Pchar(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]),’BILGI’,0+32+0);