Пару простых вопросов по ListBox'у

[Viteef]

Кому-то может мои вопросы покажутся дурацкими, но все же:

Что надо сделать что б при вызове PopupMenu ListBox'a, выделялась та строка, которая находится сейчас под указателем мыши.

И еще, как, если можно, сделать горизонтальную прокрутку?

[Квэнди]

1.
procedure TForm4.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p:tpoint;
begin
p.X:=x;
p.Y:=y;
listbox1.itemindex:=listbox1.Itemat pos(p,true);
end;
2.
procedure TForm1.FormCreate(Sender: TObject);
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i := 0 to ListBox1.Items.Count - 1 do
if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1. Items.Strings[i]) then
MaxWidth := ListBox1.Canvas.TextWidth(ListBox1. Items.Strings[i]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

[Viteef]

Большущее спасибо КВЭНДИ, а
как можно перетащить строку из одного листбокса в другой?

[Квэнди]

Св-ва у двух списков:
DragKind:=dkDrag;
Dragmode:=dmautomatic;

потом:
procedure TForm4.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
droppedOnIndex: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TList Box(Source).itemindex);
TListBox(Source).Update;
TListBox(Sender).Update;
end;
end;

[Viteef]

procedure TForm1.AutoLoadDragDrop(Sender, Source: TObject; X, Y: Integer);
var
droppedOnIndex: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TList Box(Source).itemindex);
TListBox(Source).Update;
TListBox(Sender).Update;
end;
end;

procedure TForm1.AllGroupDragDrop(Sender, Source: TObject; X, Y: Integer);
var
droppedOnIndex: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TList Box(Source).itemindex);
TListBox(Source).Update;
TListBox(Sender).Update;
end;
end;
//AutoLoad AllGroup - ListBox'ы

Я так понял для обоих ListBox'oB эта процедура, где их в Event прописывать надо?

[Квэнди]

Это для списка- приемника
берешь текст
var
droppedOnIndex: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TList Box(Source).ite mindex);
TListBox(Source).Update;
TListBox(Sender).Update;
end;
end;

выбираешь событие для списка
DragDrop

и заменяешь его текст на этот.

Св-ва у двух списков:
DragKind:=dkDrag;
Dragmode:=dmautomatic;

поставил ?

[Viteef]

Все просто вроде бы, но не работает!

Можешь дать простенький исходник, плз!

Сообщение от Квэнди

Св-ва у двух списков:
DragKind:=dkDrag;
Dragmode:=dmautomatic;

поставил ?

А как же !

[Квэнди]

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm4 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
procedure ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FormActivate(Sender: TObject);
procedure ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);
begin
listbox1.DragMode:=dmAutomatic;
listbox2.DragMode:=dmAutomatic;
end;

procedure TForm4.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
droppedOnIndex: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[TListBox(Source).itemindex]);
TListBox(Source).Items.Delete(TList Box(Source).itemindex);
TListBox(Source).Update;
TListBox(Sender).Update;
end;
end;



procedure TForm4.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if (Sender is TListBox) and (Source is TListBox) then
begin
if TListBox(Sender).Name = TListBox(Source).Name then
Accept := False
else
Accept := true;
end;
end;

end.

[Viteef]

Наконец-то, спасибо за помощь.