Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TListView - Spaltengröße verändern, welches Ereignis (https://www.delphipraxis.net/57238-tlistview-spaltengroesse-veraendern-welches-ereignis.html)

K-Asche 17. Nov 2005 16:13


TListView - Spaltengröße verändern, welches Ereignis
 
Hi@all,

welches Ereignis wird denn ausgelöst, wenn ich die Größe der Spalte verändere, d.h. diese oben im Saltenkopf größer ziehe?

Gruß

Karsten

ichbins 17. Nov 2005 16:30

Re: TListView - Spaltengröße verändern, welches Ereignis
 
Garkeines? :pale: Ich hab alle Ereignisse durchprobiert, und keines hat irgendwas gemeldet... du musst mit einem Timer überprüfen ob sich was geändert hat.

K-Asche 17. Nov 2005 17:00

Re: TListView - Spaltengröße verändern, welches Ereignis
 
Danke, werd ich morgen mal ausprobieren

ichbins 17. Nov 2005 17:09

Re: TListView - Spaltengröße verändern, welches Ereignis
 
so inetwa:
Delphi-Quellcode:
var
  columns:array of integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Integer;
  thesame:boolean;
begin
  thesame:=false;
  try begin
    for i:=0 to listview1.Columns.Count-1 do
      if listview1.Columns.Items[i].width<>columns[i] then
        raise exception.Create('Unterschied');
    thesame:=true;
  end except end;
  setlength(columns,listview1.Columns.Count);
  for i:=0 to listview1.Columns.Count-1 do
    columns[i]:=listview1.Columns.Items[i].Width;
  if not thesame then
  begin
    //Aktion
    showmessage('Hat sich verändert.');
  end;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz