為什么80%的碼農(nóng)都做不了架構(gòu)師？>>> ??

本例效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Panel1: TPanel;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;ListBox1: TListBox;procedure FormCreate(Sender: TObject);procedure ListBox1Click(Sender: TObject);procedure btnClick(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}varbtnArr: array[0..3] of TButton;procedure TForm1.btnClick(Sender: TObject); vari,n: Integer; beginn := TButton(Sender).Tag;for i := 0 to Length(btnArr) - 1 dobeginif i>n thenbtnArr[i].Align := alBottomelse btnArr[i].Align := alTop;end;ListBox1.Items.Add(TButton(Sender).Caption); end;procedure TForm1.FormCreate(Sender: TObject); vari: Integer; beginbtnArr[0] := Button1;btnArr[1] := Button2;btnArr[2] := Button3;btnArr[3] := Button4;for i := 0 to Length(btnArr) - 1 dobeginbtnArr[i].OnClick := btnClick;btnArr[i].Tag := i;end; end;procedure TForm1.ListBox1Click(Sender: TObject); beginShowMessage(ListBox1.Items[ListBox1.ItemIndex]); end;end. 窗體文件:

---

object Form1: TForm1Left = 366Top = 238Caption = 'Form1'ClientHeight = 206ClientWidth = 266Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesignedOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Panel1: TPanelLeft = 0Top = 0Width = 145Height = 206Align = alLeftCaption = 'Panel1'TabOrder = 0object Button1: TButtonLeft = 1Top = 1Width = 143Height = 25Align = alTopCaption = 'Button1'TabOrder = 0endobject Button2: TButtonLeft = 1Top = 130Width = 143Height = 25Align = alBottomCaption = 'Button2'TabOrder = 1endobject Button3: TButtonLeft = 1Top = 155Width = 143Height = 25Align = alBottomCaption = 'Button3'TabOrder = 2endobject Button4: TButtonLeft = 1Top = 180Width = 143Height = 25Align = alBottomCaption = 'Button4'TabOrder = 4endobject ListBox1: TListBoxLeft = 1Top = 26Width = 143Height = 104Align = alClientItemHeight = 13TabOrder = 3OnClick = ListBox1Clickendend end

轉(zhuǎn)載于:https://my.oschina.net/hermer/blog/319785

總結(jié)

以上是生活随笔為你收集整理的动态列表的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。