Форум: "Начинающим";
Текущий архив: 2016.08.07;
Скачать: [xml.tar.bz2];

Вниз

Как программно кликнуть по заголовку одной из колонок ListView?   Найти похожие ветки 

← →
ListViewColumnHeader   (2014-12-09 12:10) [0]

TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
...
ListView1ColumnClick(self, TListColumn);

а что подставить в качестве TListColumn?
Ясно что не Column.Index, а что не знаю
Спасибо

---

← →
junglecat ©   (2014-12-09 12:26) [1]

> ListView1ColumnClick(self, TListColumn)

это не программно кликнуть, а сымитировать вызов обработчика события.
Лучше то, что в этом обработчике, вынести в отдельный метод и его вызывать.

---

← →
Ega23 ©   (2014-12-09 16:06) [2]

> а что подставить в качестве TListColumn?


ListView1.Columns[Индекс_колонки_клик_на_которой_имитируется]

Но в целом - см. [1]

---

← →
ListViewColumnHeader   (2014-12-09 17:38) [3]

> Ega23 ©   (09.12.14 16:06) [2]

Получаю Invalid class typecast
Программирую относительно недавно. Если предположить, что в
TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
у меня обычный ShowMessage("Example"), то как мне "сымитировать вызов обработчика события"-junglecat ©   (09.12.14 12:26) [1]
Если не затруднит, подскажите как ...

---

← →
Andy BitOff ©   (2014-12-09 17:44) [4]

Ega же тебе сказал. Поставь вместо русских букв в его коде 0 или 1 или 2

---

← →
ListViewColumnHeader   (2014-12-09 17:56) [5]

Я вроде нигде не подставлял "русские буквы"
Подставил ListView2ColumnClick(self, ListView2.Columns[0]);

> ListView2ColumnClick(self, 0);

Здесь все просто:
Incompatible Types TListColumns and Integer
Это же почти очевидно

у меня обычный ShowMessage("Example"), то как мне "сымитировать вызов обработчика события"-junglecat ©   (09.12.14 12:26) [1]
Если не затруднит, подскажите как ...

---

← →
Ega23 ©   (2014-12-10 11:06) [6]


unit Unit18;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type
 TForm18 = class(TForm)
   ListView1: TListView;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18.Button1Click(Sender: TObject);
begin
 ListView1ColumnClick(nil, ListView1.Column[0]);
end;

procedure TForm18.Button2Click(Sender: TObject);
begin
 ListView1ColumnClick(nil, ListView1.Column[1]);
end;

procedure TForm18.Button3Click(Sender: TObject);
begin
 ListView1ColumnClick(nil, ListView1.Column[2]);
end;

procedure TForm18.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
 ShowMessage(Column.Caption);
end;

end.


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2016.08.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c