如今应用控件, 更喜好持续
添加时间:2013-7-25 点击量:
以前写代码, 老是把主单位弄得满满当当; 如今更喜好把控件斗劲自力的功能写成一个单位, 改写属性、重载办法...哪怕只有一点点和默认不合, 也喜好自力出来.
方才用到 TListBox, 须要能拖动元素、双击删除.
unit ListBox2;
interface
uses
System.Classes, Vcl.Controls, Vcl.StdCtrls, System.Types;
type
TListBox2 = class(TCustomListBox)
protected
procedure DragOver(Source: TObject; X: Integer; Y: Integer; State: TDragState; var Accept: Boolean); override;
procedure DblClick; override;
public
constructor Create(AOwner: TComponent); override;
procedure DragDrop(Source: TObject; X: Integer; Y: Integer); override;
end;
implementation
{ TListBox2 }
constructor TListBox2.Create(AOwner: TComponent);
begin
inherited;
DragMode := dmAutomatic;
end;
procedure TListBox2.DblClick;
begin
inherited;
Items.Delete(ItemIndex);
end;
procedure TListBox2.DragDrop(Source: TObject; X, Y: Integer);
begin
inherited;
Items.Exchange(ItemIndex, ItemAtPos(Point(X,Y), True));
end;
procedure TListBox2.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
inherited;
Accept := True;
end;
end.
测试:
uses ListBox2;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TListBox2.Create(Self) do begin
Parent := Self;
Align := alLeft;
Items.CommaText := A,B,C,D,E,F,G;
end;
end;
无论对感情还是对生活,“只要甜不要苦”都是任性而孩子气的,因为我们也不完美,我们也会伤害人。正因为我们都不完美,也因为生活从不是事事如意,所以对这些“瑕疵”的收纳才让我们对生活、对他人的爱变得日益真实而具体。—— 汪冰《世界再亏欠你,也要敢于拥抱幸福》
以前写代码, 老是把主单位弄得满满当当; 如今更喜好把控件斗劲自力的功能写成一个单位, 改写属性、重载办法...哪怕只有一点点和默认不合, 也喜好自力出来.
方才用到 TListBox, 须要能拖动元素、双击删除.
unit ListBox2;
interface
uses
System.Classes, Vcl.Controls, Vcl.StdCtrls, System.Types;
type
TListBox2 = class(TCustomListBox)
protected
procedure DragOver(Source: TObject; X: Integer; Y: Integer; State: TDragState; var Accept: Boolean); override;
procedure DblClick; override;
public
constructor Create(AOwner: TComponent); override;
procedure DragDrop(Source: TObject; X: Integer; Y: Integer); override;
end;
implementation
{ TListBox2 }
constructor TListBox2.Create(AOwner: TComponent);
begin
inherited;
DragMode := dmAutomatic;
end;
procedure TListBox2.DblClick;
begin
inherited;
Items.Delete(ItemIndex);
end;
procedure TListBox2.DragDrop(Source: TObject; X, Y: Integer);
begin
inherited;
Items.Exchange(ItemIndex, ItemAtPos(Point(X,Y), True));
end;
procedure TListBox2.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
inherited;
Accept := True;
end;
end.
测试:
uses ListBox2;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TListBox2.Create(Self) do begin
Parent := Self;
Align := alLeft;
Items.CommaText := A,B,C,D,E,F,G;
end;
end;
无论对感情还是对生活,“只要甜不要苦”都是任性而孩子气的,因为我们也不完美,我们也会伤害人。正因为我们都不完美,也因为生活从不是事事如意,所以对这些“瑕疵”的收纳才让我们对生活、对他人的爱变得日益真实而具体。—— 汪冰《世界再亏欠你,也要敢于拥抱幸福》