{$R *.dfm}
var
p:trect;

procedure TForm1.Timer1Timer(Sender: TObject);
var
d:tpoint;
begin
getcursorpos(d);
if  p.Top<2 then
begin
if not(((d.X>p.Left) and (d.X<p.Right) and (d.Y>p.Top) and (d.y<p.Bottom)))then
begin
movewindow(self.Handle,p.Left,0-(p.Bottom-p.Top)+2,p.Right-p.Left,p.Bottom-p.Top+2,true);
form1.
timer1.Enabled:=false;
timer3.Enabled:=true;
end;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
GetWindowRect(self.Handle,p);
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
d:tpoint;
begin
getcursorpos(d);
if ((d.X>p.Left) and (d.X<p.Right) and (d.Y>p.Top) and (d.y<p.Bottom)) then
begin
movewindow(self.Handle,p.left,-2,p.Right-p.Left,p.Bottom-p.Top,true);
SetActiveWindow(self.Handle);
timer1.Enabled:=true;
timer3.Enabled:=false;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if p.Top<-2 then
movewindow(self.Handle,p.left,-2,p.Right-p.Left,p.Bottom-p.Top,true);
end;

end.




窗体文件内容:
object Form1: TForm1
  Left = 801
  Top = 87
  Width = 193
  Height = 505
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 13
  object Timer1: TTimer
    Interval = 400
    OnTimer = Timer1Timer
    Left = 24
    Top = 48
  end
  object Timer2: TTimer
    Interval = 150
    OnTimer = Timer2Timer
    Left = 80
    Top = 56
  end
  object Timer3: TTimer
    Interval = 400
    OnTimer = Timer3Timer
    Left = 32
    Top = 120
  end
end

procedure TForm1.FormCreate(Sender: TObject);//窗口初始化
begin
label1.Caption:='http://www.cnitblog.com/shuyezi122';
label2.Caption:='shuyezi122@163.com';
label1.Font.Color:=clblue;
label2.Font.Color:=clblue;
label1.Cursor:=crHandPoint;
label2.Cursor:=crHandPoint;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
URLink('http://www.cnitblog.com/shuyezi122');
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
URLink('mailto:shuyezi122@163.com');
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Label1.Font.Color:=clred;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clblue;
end;

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
Label2.Font.Color:=clred;
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
Label2.Font.Color:=clblue;
end;

end.
这些一看就明白了吧

end;


上面是保存下来,如果你显示在image组件上:
var
  ico: TIcon;
begin
if opendialog1.Execute then
begin
Image1.picture.Assign(nil);
ico := TIcon.Create;
ico.Handle:=ExtractIcon(HInstance, PChar(opendialog1.FileName), 0);
DrawIcon(self.Image1.Canvas.Handle,33,33,ico.Handle);
ico.Free;
end;
end;

一般Tstrings用作定义，TStringList用来实例化
  var  
          tsList:TStrings;  
  begin  
          tsList:=TStringList.Create();  
          ....  
          tsList.Free;//有时我们不去释放,但最好去释放

方法:add()
var
ps:strings;

ps:=tstringlist.creat;
ps.add('aaa  bbb');
这里加的是'aaa  bbb',还不是'aaa ' 和'bbb'
也就是ps.count=1,不是2

EM_SETSEL

就是选中一段文字。第一个参数(WParam)是开始的位置，第二个参数(LParam)是选择的长度。都是以光标的位置为准的。
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;                          //给于焦点
  SendMessage(Edit1.Handle,EM_SETSEL,0,1); //选择第一个字符
  SendMessage(Edit1.Handle,EM_SETSEL,0,-1); //全选
  SendMessage(Edit1.Handle,EM_SETSEL,1,1); //光标移到第一个字符后面
  SendMessage(Edit1.Handle,EM_SETSEL,0,0); //光标移到开始
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0); //光标移到开始
end;