回复：【经验交流】Lazarus——从安装到使用

怎么沉了

求Delphi xe8教程，

你可能误解了。。。我说的是delphi的这个第三方组件包，可以写语法高亮。
——我喂自己袋盐
>>Mozilla/5.0 (Windows NT 6.1; WOW64; rv:40.0) Gecko/20100101 Firefox/40.0

“卖萌需要注意什么事项？“注意长相” “”

如何获得某目录下的文件名单，如果能指定扩展名更好

请问类似音乐盒和视频播放器的滚动条控件在哪里啊？难道lazarus控件就这么几个还是我没找到
弱渣表示不大会面向对象的pascal，最近刚搞懂控件是什么（还有以前根本不知道左边的属性干啥用因此根本编不了窗口化的）

[img pic_type= width= height=]file:///C:\Users\Administrator\Documents\Tencent Files\532720096\Image\C2C\{]R0BL`FA`}8X0JK4U`LYRF.png[/img]按键按下后，下面不能显示出来

下面是我的代码
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ComCtrls, Menus;
type
{ TForm1 }
TForm1 = class(TForm)
MenuItem1: TMenuItem;
PageControl1: TPageControl;
PopupMenu1: TPopupMenu;
procedure FormShow(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
Buttons:array[1..3,1..3]of tbutton;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
buttons[i,j]:=tbutton.Create(self);
with buttons[i,j] do
begin
Parent:=self;
width:=80;
height:=30;
top:=j*30;
left:=i*80;
caption:='button'+inttostr(i)+','+inttostr(j);
showhint:=true;
hint:=caption;
end;
end;
end;
procedure TForm1.MenuItem1Click(Sender: TObject);
var newpage:ttabsheet;
begin
newpage:=ttabsheet.Create(pagecontrol1);
newpage.Parent:=pagecontrol1;
newpage.PageControl:=pagecontrol1;
newpage.caption:=((((Sender as TMenuItem).GetParentComponent)
as TPopupMenu).PopupComponent as tbutton).caption;
end;
end.

看看你窗体怎么设计的

@wfwhl12

大家来看看我的新作品呀http://tieba.baidu.com/p/4455591300
@革命家的右手
@fP4869
@82111668_2012