Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизКак отловить нажатие по элементу ListBox а? Найти похожие ветки
← →
_sMile (2003-05-20 20:46) [0]Как отловить нажатие по элементу ListBox"а?
← →
Романов Р.В. (2003-05-20 20:52) [1]OnMouseDown
OnClick
← →
Palladin (2003-05-20 20:54) [2]интересно, а автор вообще в курсе что есть вкладка Events
← →
Zz_ (2003-05-20 20:57) [3]procedure TfMain.WndProc(var Mes:TMessage);
begin
if(Mes.Msg=WM_COMMAND)then begin
if(Mes.WParamHi=LBN_SELCHANGE)then begin
ListBox.Items.Add("Index = "+IntToStr(SendMessage(Mes.LParam,LB_GETCURSEL,0,0)));
end else
if(Mes.WParamHi=LBN_DBLCLK)then begin
ListBox.Items.Add("Index = "+IntToStr(SendMessage(Mes.LParam,LB_GETCURSEL,0,0)));
end;
← →
AbrosimovA (2003-05-23 12:59) [4]
procedure TMainForm.ListBox1DblClick(Sender: TObject);
var Num: integer;
String1: string;
begin
Num:=ListBox1.ItemIndex;//Индех строки по которой нажали дважды
String1:=ListBox.Items.Strings[Num]//Присвоить содержимого
выбр.строки строковой
переменной
ListBox1.DeleteSelected;//Удаление выбранной строки
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c