ListBox & SpeedButton

[mihali4]

Что-то я не пойму вас...
Сделайте вот так и, по-моему, это будет то, что нужно для словаря:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Listbox1.perform(lb_selectstring,-1,longint(pchar(Edit1.text)));
ListBox2.ItemIndex:=ListBox1.ItemIndex;
end;

[Rebel123]

Сообщение от mihali4
Что-то я не пойму вас...
Сделайте вот так и, по-моему, это будет то, что нужно для словаря:
end;[/CODE]

Уважаемый модератор, это вы меня понять не можете. Я вас по благодарил за поисковик, с поисковиком все решено, вылезла еще одна неувязочка, когда перематываешь ScrollBar(ListBox'a1) или наобарот, то тогда чтоб и перематывалась другая?! вот как реализовать? вот в этом я прошу у вас помощи.

[Stilet]

чтоб и перематывалась другая?!

Я пример уже выкладывал недавно, был подобный вопрос. Пройдись поиском... Я если вспомню где подпедактирую свой пост...

Ы-ы-ы я ж тебе уже пример давал то..
http://www.programmersforum.ru/showt...x%3A%3D&page=2

[Rebel123]

Сообщение от Stilet
Ы-ы-ы я ж тебе уже пример давал то..

Да дело в том что он перескакивает, я пытался как вы написали в коде но не получалось((

[psycho-coder]

что именно перескакивает?
Я пробовал запустить Вашу программу, вроде все нормально.
Подробней опишите, как она перескакивает. Если возможно то скрины приложите

[Stilet]

Да дело в том что он перескакивает

Странно... Вот только что проверил. Ничего не скачет.

unit Unit1;

interface

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

type
  TlistBox=class(StdCtrls.TListBox)
   procedure wp(var w:TWMVScroll); message WM_VScroll;
  end;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to 100 do ListBox1.Items.Add(inttostr(i));
 ListBox2.Items:=ListBox1.Items;

end;
{ TlistBox }


procedure TlistBox.wp(var w: TWMVScroll);
begin
inherited;
 with form1 do ListBox2.TopIndex:=ListBox1.TopIndex;
end;
end.

[Rebel123]

Сообщение от pchyco-coder
что именно перескакивает?
Я пробовал запустить Вашу программу, вроде все нормально.
Подробней опишите, как она перескакивает. Если возможно то скрины приложите

я имел ввиду если всавлять этот кусок кода то, тогда при перемотки ScrollBar'ов он начинает скакать наверх постоянно

procedure TlistBox.vs;
begin
inherited;
 Form4.ListBox2.TopIndex:=m.Pos;
end;

[psycho-coder]

Так Вам же дали работающий код

procedure TlistBox.wp(var w: TWMVScroll);
begin
inherited;
 with form1 do ListBox2.TopIndex:=ListBox1.TopIndex;
end;

[Rebel123]

Stilet - сам вам огромное. Все работает отлично, а вот этот кусок кода не к чему:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to 100 do ListBox1.Items.Add(inttostr(i));
 ListBox2.Items:=ListBox1.Items;

я так понимаю это : ''на создании формы добавить цифры в Items двух ListBox'ов''.

Сообщение от pchyco-coder
Так Вам же дали работающий код

Да да, я видел, уже давно все работает.Спасибо за внимание pchyco-coder

Есть еще 2 вопроса (не сочтите это за наглость):

procedure TForm4.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Form4.VertScrollBar.Position:=Form4.VertScrollBar.Position+70;
end;

procedure TForm4.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Form4.VertScrollBar.Position:=Form4.VertScrollBar.Position-70;
end;

вот с этим куском кода я перематываю ListBox'ы (отдельно каждую) колесиком мыши. А вот как бы реализовать так, чтобы при перемотки колесиком мыши он перематывал оба сразу???

[Stilet]

Ну например к тому что я написал вот такое прикрутить:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
 ListBox1.Perform(WM_VSCROLL,MakeWParam(SB_LINEDOWN,1),0);
 Handled:=true;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ListBox1.Perform(WM_VSCROLL,MakeWParam(SB_LINEUP,1),0);
   Handled:=true;

end;